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Introduction 



ibm 7070/7074 Autocoder is a symbolic programming system designed to simplify 
the preparation, correction, and interpretation of programs for the ibm 7070 and 
7074 Data Processing Systems. This manual is a reference text and contains 
information to enable the programmer to use the Autocoder system. 

Autocoder is a component of the 7070/7074 Compiler Systems Tape and forms 
an interlocking system with Fortran and the Report Program Generator. The 
Compiler Systems Tape may be obtained by sending a full reel of magnetic tape 
to the ibm Program Librarian. The compilers will be written on the tape which 
will be returned. It is suggested that a duplicate of the tape be made as soon 
as it is received so that one copy of the program can be kept in reserve. The 
extra copy should be used only in case the working copy becomes unusable. The 
reel of magnetic tape for the 7070/7074 Compiler Systems Tape should be sent to: 

IBM 7070/7074 Program Librarian 
International Business Machines Corporation 
590 Madison Avenue 
New York 22, New York 

This manual assumes that the programmer is familiar with the methods of data 
handling and the functions of instructions in the 7070/7074 Data Processing 
System. This information is included in the ibm Reference Manual "7070 Data 
Processing System," form A22-7003-2. 

The 7070/7074 Autocoder system is designed for use in installations which have 
a minimum of six 729 Model IV (or Model II) tape units and a machine with 
5,000 words of core storage. This minimum configuration permits compilation 
of programs whose input is in the form of a card image tape and whose output 
is to be written on tapes for printing and/or punching off-line. The following 
additional equipment may be added to perform the indicated operations: 

1. ibm 7500 Card Reader is necessary, in addition to the six tape units, if any 
input is in the form of punched cards. 

2. ibm 7550 Card Punch is necessary if on-line punching of output is desired. 

3. ibm 7400 Printer is necessary if on-line printing of output is desired. 

4. As many as four additional tape units may be used if the input is to be on 
more than one tape unit and/or if more than one program is to be compiled 
during a single machine run. 

The specific machine requirements for each type of run which may be made 
using the Compiler Systems Tape are included in the 7070/7074 Data Processing 
System Bulletin "ibm 7070/7074 Compiler Systems: Operating Procedure," form 
J28-6105. Detailed operating instructions for each run, as well as the control 
cards necessary, are also included in this bulletin. 

7070/7074 Autocoder is one of the powerful programming languages of today. 
Such languages have steadily evolved from languages requiring highly codified 
instructions closely related to the arithmetic capacities of the machine. 

The first step in the evolution was the introduction of symbolic programming 
systems, such as 7070/7074 Basic Autocoder, in which a symbolic instruction is 
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written in place of each machine-language instruction. The programmer is thus 
able to code" more easily and with greater meaning and the chance of errors is 
materially reduced. 

The introduction of macro-instructions was a further step towards simplifying 
programming and reducing the time required to write a program. A macro- 
instruction is a symbolically-coded instruction which will produce a group of 
machine-language instructions. Two types of macro-instructions exist, substitu- 
tion-type and generator-type. 

The macro-instructions handled by 7070/7074 Four-Tape Autocoder are the 
substitution-type. The processor completes a "skeleton" routine by inserting 
parameters from the macro statement operand into this routine. The macro 
statement is then replaced by the completed routine. Four-Tape Autocoder also 
accepts symbolic machine instructions. 

Autocoder, in addition to accepting symbolic machine instructions, handles 
generator-type macro-instructions. The task of compiling the proper sequence 
of instructions for the given macro statement is performed by the appropriate 
macro generator in the Library portion of the Compiler Systems Tape. In gen- 
eral, the operand of each macro-instruction must conform to a basic format. 
However, Autocoder also accepts certain macro-instructions with operands 
whose formats have not been pre-established "symbol by symbol." For example, 
the operand of arith or of logic contains an "expression," the value of which is 
to be computed or the truth or falsity of which is to be determined. The macro 
generators scan the macro statements and compile the corresponding sequence 
of symbolic machine instructions; the operand need only conform to the rules 
of format which have been established and must not exceed certain specified 
lengths. Numerous illustrations of source program macro-instructions and their 
corresponding series of generated machine instructions are included with the 
macro-instructions under "Imperative Statements." 

Macro-instructions to handle input/output operations are included in both the 
Autocoder and Four-Tape Autocoder systems. With certain restrictions, the 
source-program input/output statements are written the same for both Auto- 
coders. However, the statements are handled differently by the processors of 
the two systems. In Four-Tape Autocoder, the processor substitutes the com- 
pleted "skeleton" routine for the macro statement; in Autocoder, the macro- 
instruction is processed by means of a macro generator. A description of the 
input/output macro-instructions is included in this manual; a full discussion can 
be found in the 7070 Data Processing System Bulletin "ibm 7070 Input/Output 
Control System," form J28-6033-1. Input/output operations are estimated to 
constitute an average of 40% of a program; the ability to handle these operations 
by means of macro-instructions represents a substantial gain in programming 
simplicity and efficiency. 

The Autocoder language may be extended by adding new macro-instructions. 
Appropriate macro generators may be added to the system to process the newly- 
created macro-instructions. The necessary generator is written in the Autocoder 
language according to the instructions presented in the 7070 Data Processing 
System Bulletin "Additions to the ibm 7070 Autocoder; Writing Macro Genera- 
tors for the ibm 7070 Autocoder," form J28-6053. The generator is then com- 
piled and entered on a new Compiler Systems Tape and the corresponding 
macro-instruction may then be included in any program. 

While macro-instructions provide the programmer with a set of powerful tools 
to solve problems without becoming enmeshed in the tedious details of analysis 



and of storage assignment, the programmer may still exercise direct control over 
the minor details of his program, should it be necessary. Autocoder accepts and 
processes all symbolic machine instructions as well as macro-instructions; in fact, 
any program written in Basic Autocoder can be assembled without change by 
Autocoder. In addition, storage allocation can be specified by a set of control 
statements which have been provided. 

In summary, the Autocoder system provides a number of advantages by intro- 
ducing a powerful macro language. The programming and processing advan- 
tages are as follows: 

1. Macro language eliminates the need for breaking down many frequently 
encountered tasks into a number of small steps by turning these tasks over 
to macro generators. 

2. Full use is made of the symbolic programming devices of the system. The 
need for attention to the details of data flow, actual storage allocation, and 
decimal-point positioning is eliminated. 

3. The programmer is allowed to write program steps that are meaningful in 
terms of the problem to be solved, rather than in terms of machine 
capacities. 

4. The program may be easily broken into meaningful segments, allowing for 
greater flexibility and accuracy in reprogramming or recombining of pro- 
gram segments. 

5. The program is made much more readable. 

6. Programming speed is materially increased. 

7. Programming is much easier to learn because fewer instructions must be 
written by the programmer and because the need for concern with many 
machine details is eliminated. 

8. Macro language reduces programming errors by making use of tested macro 
generators rather than many individual machine instructions. 

9. Errors in the input statement are detected by macro generators themselves; 
a message is issued indicating the location of the error and, generally, the 
type of error committed. 

10. Programs are largely independent of individual machine characteristics and 
therefore are easier to transfer from one system to another. 
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A programmer, coding a program for the 7070 or 7074 in Autocoder, writes all 
Autocoder statements on the 7070 Autocoder Coding Sheet, form X28-6417-2 
(see Figure 1). The coding sheet indicates by column numbers the input card 
format for both the Basic Autocoder and the Autocoder Systems. Each line of 
the coding sheet is punched into the indicated columns of a corresponding ibm 
7070 Autocoder Input Card, electro A18265 (see Figure 2). An explanation of 
the purpose of each heading on the coding sheet is given below. 



The heading line consists of the spaces labeled "Program," "Programmed By," 
and "Date." The information entered in these spaces is for identification of the 
program and is not to be punched into input cards. 



Page Number (Columns 1-2) 

A two-character page number sequences the coding sheets. Any alphameric 
characters may be used, providing they can be read into or can be translated 
on output by the input/output equipment of the 7070 or 7074 system used to 
process the Autocoder source program. (This applies in general to the usage of 
alphameric characters in all Autocoder statements.) The standard collating 
sequence should be followed in sequencing the pages. Alphameric characters 
which are not acceptable to various input/output equipment and the collating 
sequence may be found on page 9 of the ibm Reference Manual "7070 Data Proc- 
essing System," form A22-7003-2. 
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Coding Sheet 



Line (Columns 3-5) 



Label (Columns 6-15) 



The first twenty-five lines on each sheet are prenumbered 01 through 25. Also 
provided are five unnumbered lines at the bottom of the sheet that may be used 
for additional lines or for inserts. Since provision is made for a three-character 
line number for the sequencing of the coding entries on the sheet, inserts may 
be readily made through the use of the optional third character. For example, 
inserts between lines 10 and 11 may be made by writing 101, 102 and 103 or 
10A, 10B, and 10C, etc. in columns 3-5 of the unnumbered lines and placing the 
resulting cards after the card for line 10. Any alphameric characters may be 
used for all three characters of the line number so long as the standard collat- 
ing sequence is followed in sequencing the lines. 

The sequence of the cards entered into the processor will be checked by the 
page and line numbers punched in the source program deck. Any variation from 
the collating sequence will be noted in the warning and error message area of 
the program listing produced during a compilation. However, source-language 
input will be compiled in the order encountered. 



The label column is used to represent the location of data or instructions in the 
machine. Only instructions or data which will be referred to elsewhere in the 
program need have a label. In all other cases, the label column is blank. A 
label may be a symbolic location or an actual address. Each symbolic label 
must be unique, i.e., it may not appear more than once in the label column. 



Operation (Columns 16-20) 



The operation column contains either a macro statement or the mnemonic rep- 
resentation of the machine operation to be performed. In certain cases, the col- 
umn may be left blank. Actual machine operation codes are never used. The 
Autocoder symbolic machine instructions and macro-instructions are composed 
of from one to five alphameric characters, and are written left-justified in the 
operation column. Operation codes are categorized as "declarative," "control," 
and "imperative" statements. A description of these three types of statements 
is contained on pages 20, 87 and 103, respectively. If an invalid operation is 
used, a nop will be generated. 



Operand (Columns 21-75) 



The operand contains the actual or symbolic address of the information which 
is to be acted on by a particular command, or other parameters to be utilized 
by a macro generator. The operand may contain 55 columns of information as 
input to the Autocoder processor as opposed to the 40 columns for the Basic 
Autocoder processor. When field definition, address adjustment, or indexing is 
used in conjunction with the address, it is included in the operand. The operand 
may contain the actual data to be operated on by an instruction, referred to as 
a "literal." It may also be used to specify index words, electronic switches, chan- 
nels, units, channel and unit, arm and file, inquiry and unit record synchronizers, 
latch numbers, and alteration switches. 
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Identification (Columns 76-80) 

Program identification is punched into columns 76-80 of all cards in the source 
program deck. The identification which appears on the first card of the source 
program deck will be punched in the identification field of each card of the 
object program deck and printed on each page of the output program listing 

Autocode 
the proper symbolic source-language input. 

Any alphameric characters acceptable to the 7070/7074 input/output equipment 
may be used in the identification entry. Alphabetic and special characters will 
print as such on the program listing. However, only the second digit of each 
double-digit representation of these characters will be punched in the identi- 
fication field of the condensed cards of the object program decks since these 
cards must be numerical. For example, "A" will be punched as "1," "*" will be 
punched as "6," etc. If the first card of the source program deck has a blank 
identification field, the identification on the program listing will be blank and 
zeros will be punched in the cards of the object program deck, the double-digit 
representation of a blank being 00. 



Remarks and Comments 



Remarks and comments may be included for description. They will appear in 
the symbolic output but will produce no entry in the object program deck and 
consequently will not affect the operation of the program. 

Remarks may be included anywhere in the operand, provided they are sepa- 
rated by at least two blank spaces from the operand of the instruction. As noted 
on page 60, an @ symbol may not appear in remarks which are on the same 
line as an alphameric constant. Otherwise, remarks may include any acceptable 
characters. 

Comments cards allow the programmer to insert complete lines of descriptive 
information in the program. A comments cards is identified by placing an aster- 
isk in column 6 of the label column. Any part of the label, operation, or operand 
columns may be used for the description. Comments cards are useful as descrip- 
tive headings for various sections of a program, such as operating instructions, 
or where the operand column of an instruction does not allow enough room for 
necessary remarks. 

Remarks and comments may be used in a program as follows 
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Parameters 



Address Types 



Blank 



Actual 



The following types of addresses may appear in the label and/or operand fields 
of Autocoder statements: blank, actual, symbolic and literal. A description of 
these address types and the rules governing their usage follow. 

The label column may be blank if the corresponding entry is not referred to 
elsewhere in the program. A blank operand is valid for certain machine opera- 
tions (see Appendix D) and in the following control and declarative statements: 

1. origin Control 6. xrelease Control 

2. LiTORiGiN Control 7. 

3. end Control 8. 

4. xreserve Control 9. 

5. sreserve Control 



srelease Control 
dc (Header Line) 
dline ( Header Line ) 



The effect of a blank operand varies for each of the control and declarative state- 
ments in which it may appear. These are explained fully under the discussion 
of the respective statements. If a Priority Release command has a blank operand, 
the processor will insert 0097. In all other machine operations where a blank 
operand is valid, the processor will insert 0000. If a blank operand is invalid, 
an error message will be produced. 

An actual address may be from one to four digits, written left-justified on the 
coding sheet. Leading zeros may be omitted. An actual address is valid only 
in the label and operand of symbolic machine instructions and in the operand of 
certain macro-instructions and control statements. 

In certain instructions, an actual operand may only assume values within a lim- 
ited range, e.g., a value of 1 through 4 in an alteration switch instruction and a 
value of 1 to 30 in an electronic switch instruction. 

An actual address in the label column of a symbolic machine instruction will 
cause the instruction to be assigned that actual location. The contents of the 
location assignment counter being used will not be changed and the actual loca- 
tion, with the exception of index word addresses, will not be reserved. Hence, 
the programmer should be extremely cautious when using an actual label. 

The following example illustrates the use of actual addresses in symbolic machine 
instructions: 
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Symbolic 



A symbolic address is valid in the operand of most statements and in the label 
column of all but the control statements. A svmbolic address mav contain from 



one to ten characters with the following restrictions: the first, or leftmost, posi- 
tion must be a letter; the remaining characters may be letters or numbers (no 
special characters); blanks may not appear within the symbolic address. A sym- 
bolic address placed in the label column of a declarative or imperative state- 
ment is automatically associated with an actual storage location assigned by the 
nrorewnr's location counter. Further reference to a certain instruction may be 
made or operations on a particular data field may be performed by writing the 
symbolic name assigned to the instruction or data field in the operand of an 
imperative, declarative, or control statement. 

Consider the following example: 
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If field is a one-word field assigned to location 3000, the first entry above will 
result in the assembled instruction +1300093000. If the assignment counter had 
been at 5000 when the first entry was encountered, the label routine would have 
been associated with location 5000. Thus the entry in line 04 above would result 
in the assembled instruction -4000095000. 

The asterisk, *, is a special symbol which is valid in the operand only. If an 
actual address has not been written in the label column, the processor will assign 
the location of the instruction being processed, contained in the location assign- 
ment counter, to *. For example, if the instruction 
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has been assigned to location 4440, then the * in the operand of that instruction 
will also be assigned location 4440; i.e., the assembled machine instruction will 
be +1300094440. 

If an actual label has been entered in the label column and an * in the operand, 
the processor will assign the actual address to *. Thus, the instruction 
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would result in the assembled machine instruction +1300090324. 
Use of the asterisk address will reduce the number of symbols required m the 
label column. Unless there is a note to the contrary, the special symbol, *, may 
be used as an operand address wherever this manual indicates that a symbolic 
address is valid. 
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Literal 



Automatic-Decimal Numbers 



A literal is the actual data to be operated on by an instruction. The literal is 
valid only in the operand of an imperative statement, and its appearance causes 
the processor to assign a storage location to the literal. In order to conserve 
storage, literals are packed into words. The processor assigns field definers to 
the literal and incorporates the storage address and field definers into the instruc- 
tion being processed. Once a literal has been stored, it will be re-used each 
time it is referenced again, except when the Litorigin Control statement is used 
(see page 88). Address adjustment and indexing (both discussed in later sec- 
tions) should not be appended to literals. Literals should not be used for tem- 
porary storage, i.e., the operands of Store instructions should not be literals. 
Certain imperative instructions (e.g., Priority Control, Index Word Load, Tape 
Write) operate on full words and do not permit field control. If a literal which 
is less than ten digits, or an adcon, is used as the operand of any of these instruc- 
tions, it will be converted to ten-digit form by being right-justified in a word. 
Thus, if -50 is entered as the address portion of an Index Word Load instruc- 
tion (XL), the actual constant stored will be -0000000050. Also, assume that 
atable is the label of an instruction or data occupying location 2000. If the 
adcon -atable is entered as the address portion of an Index Word Load and 
Interchange command (xlin), the representation will be -0000002000, and, 
at object time, the contents of the specified index word will be replaced by 
-0020000000. In general, however, a literal should be written in the exact form 
in which it is to be used with leading zeros included where necessary. 
Four principle classes of literals are permissible: automatic-decimal numbers, 
floating-decimal numbers, address constants (adcons), and alphameric constants' 

A literal having either of the following sets of characteristics is included in the 
automatic decimal class. 

1. A signed number, one to twenty digits in length, which is referred to by a 
macro-instruction. A decimal point may be included in the literal. 

2. A signed number, one to ten digits in length, which is referred to by a sym- 
bolic machine instruction. A decimal point may not be included in the literal. 

An automatic-decimal number, referred to by a macro-instruction and described 
by the first set of characteristics above, will be examined by the Autocoder 
processor for decimal-point inclusion. A decimal point indicates the magnitude 
of the number according to ordinary usage and the desired decimal-point place- 
ment; it is neither stored in the constant nor saved with it. Using Autocoder 
macro generators, the processor generates instructions for shifting, decimal align- 
ment, bridging words, and handling field definers. If the decimal point falls to 
the right of the rightmost digit of the number, it may be omitted and the num- 
ber will be considered an integer. The following are examples of automatic- 
decimal literals which might appear in the operand of a macro-instruction: 

+1234567890123 . 4567890 

-.12345 

-1.23 

+1 

An automatic-decimal number described by the second set of characteristics 
above is actually a subset of one described by the first set of characteristics. 
Because the number is referred to by a symbolic machine instruction, the literal 
is restricted to ten digits in length and all instructions for shifting and decimal 
alignment must be written by the programmer. 

An automatic-decimal number may also be defined by a dc subsequent entrv 
(see page 55). 
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Floating-Decimal Numbers 



FlnaHnof-dficiTnal numbers hyp permitted as a literal entrv in macro-instructions 
only. A number may be expressed in the form 

(±n) (10 ±m ) 

where n is an integer or decimal number of not more than eight digits and m is 
a one-digit or two-digit exponent. Floating-decimal numbers are related to this 
form and are. entered according to the format ±nF±m. Thus, the number 
-.12345678X10 3 would be represented by -.12345678F+3. If the sign preced- 
ing m is omitted, m is considered to be positive. The exponent m may be omitted 
if equal to 0, provided ±nF is not followed by another literal entry. The Auto- 
coder processor will consider the signs, the value of n, and the value of m, and 
generate a standard 7070 floating-decimal word. The following are examples 
of floating-decimal numbers which might appear in the operand of a macro- 
instruction: 

-3.4F 

+34.567893F-2 

-31.92F+7 

-29567.1F-3 

+12546F+15 

Additional examples of floating-decimal numbers may be found in the ibm 
Reference Manual "7070 Data Processing System," form A22-7003-2. 

A floating-decimal number may also be defined by a dc subsequent entry as 
described on page 57. 



Address Constants (Adcons) 



An adcon is a special-purpose numerical literal used to produce a four-digit 
constant whose value is the actual address assigned to a symbolic address. The 
address constant is treated in the same manner as a numerical literal. An adcon 
is entered in the form ± symbol. The following example illustrates the use of 
an adcon: 
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If the symbolic address, axylabel, is assigned the actual location, 2000, the 
use of the adcon, +axylabel, in the operand of line 04 will cause the proc- 
essor to produce a constant of +2000. If the address constant, +2000, is as- 
signed to location 4576 with field definers (6, 9), the entry on line 04 would 
result in the assembled instruction +1300694576. The execution of this instruc- 
tion at object program time would place the number, +0000002000, the actual 
address assigned to axylabel, in accumulator 1. 

An adcon may also be defined by a dc subsequent entry (see page 58). 



Alphameric Literal 



An alphameric literal consists of alphameric characters preceded and followed 
bv the @ character. A literal in the operand of a symbolic machine instruc- 
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Field Definition 



tion may not be more than five characters in length and, in the operand of a 
macro-instruction, may not be more than 120 characters in length. All char- 
acters between the initial @ character and the second @ will be converted to 
double-digit form and assigned to core storage locations. The sign of each word 
used to contain the characters will be alpha. If the constant produced by a 
literal is more than one word in length, but not a multiple of five alphameric 
characters, the double-digit representation of alphameric blanks will be gener- 
ated in the unused low-order positions of the last word of the constant, i.e., the 
constant will not be packed. 

Alphameric literals may not include the @ character. Alphameric literals may, 
however, contain any other character (except for the record mark) which may 
be read by the input device used. 

The following are examples of alphameric literals which might appear in the 
operand of macro-instructions or symbolic machine instructions: 

@ABCD@ 
@A100X@ 
@ 12345© 

@.n+$*@ 

@-/,%#@ 
The following literal would be valid in the operand of a macro-instruction only: 

@THIS LITERAL IS LONGER THAN 5 CHARACTERS® 

Alphameric constants, including those containing the @ character, may be de- 
fined by a dc subsequent entry ( see page 60 ) . 



Field definition may be written immediately following the operand address of 
symbolic machine instructions. The field definers are the digit positions of a ten- 
digit word numbered to 9. The format for entering field definers is as follows: 



Line 

13 5 



Label 



Operation 
20 



OPERAND 

35 40 



Basic Autocodi 

50 55J 



o z 
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The starting and ending positions are the field definers. When operating on a 
single digit, the comma and ending digit position may be omitted. Field definers 
may be omitted entirely when operating on a whole word or a field defined by 
a declarative statement ( see pages 22 through 81 ) . 

Field definition may not be used in the operand of a macro-instruction. How- 
ever, both macro-instructions and symbolic machine instructions may refer to 
the label of a Define Area (da), Define Constant (dc), or Define Line (dline) 
subsequent entry, each of which may specify field definition. 

Autocoder symbolic machine operation codes which permit field definition to 
be associated with the address are indicated in Appendix D. Field definition 
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may be used with both actual and symbolic addresses as illustrated in the fol- 
lowing examples: 
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In lines 05 and 06 above, field definers (0, 9) could have been omitted since the 
instructions will be operating on the entire word. 

When used with literals, field definition will be relative to the literal itself. Thus, 
the adcon -symbol (2, 3) refers to the third and fourth digits of the location 
assigned to symbol. If location 9876 has been assigned to symbol, -symbol 
(2, 3) would be equivalent to -76. (See "Relative Field Definition" on page 
41.) 



Address Adjustment 



Address adjustment allows the programmer to refer to an entry which is a given 
number of locations preceding or following a symbolic address. Address adjust- 
ment is permitted with adcons and with all symbolic addresses, except the single- 
address operand of a dbdw statement (see page 78). It should not be used with 
actual addresses or other literals. 

With symbolic machine instructions, address adjustment is indicated by writing 
a plus or minus sign followed by one to four digits immediately after the sym- 
bolic address and following any field definers. 

Address adjustment with symbolic machine instructions is written as follows: 
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If location 2150 has been assigned to the symbolic address manno, then 2155 
will be assigned to manno+5, and 2148 will be assigned to maxxo-2. The entry 
manno (0, 2) +5 refers to the first three digit positions of location 2155. Simi- 
larly, if 2196 is the location of an instruction containing *-l as an operand, 
then location 2195 will be assigned to this operand. 

With macro-instructions, address adjustment is indicated by writing a plus or 
minus sign followed by one to four digits after the symbolic address. The sign 
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and digits must be enclosed by parentheses. The left parenthesis must be in the 
column immediately following the last character of the symbolic address being 
modified, except when the address adjustment goes to a continuation card (see 
"Continuation Cards" ) . 

Address adjustment with macro-instructions is written as follows: 
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If location 1560 has been assigned to the symbolic address list, then 1563 will 
be assigned to list (+3), and 1550 will be assigned to list ( -10). 

Address adjustment of an adcon will cause a special function. The value of the 
address will be modified before the constant is created. Address adjustment of 
an adcon in a symbolic machine instruction is written as follows: 



Line 
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2 



Label 
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If anylabel is assigned to location 2000, the above entry will cause the creation 
of a literal (or adcon) value of 2001 to be stored for reference. In a macro- 
instruction, the format in the operand would be +anylabel(+1). 

The programmer should be careful when using address adjustment since it may 
become a source of error when a program is modified. For example, inserts and 
deletions of program entries could change addresses in such a way that *+10 
should now be *+9. It should also be noted that since it is not known how 
many machine instructions will be generated in place of a macro-instruction, 
address adjustment must not be used on a symbolic label in amounts that would 
carry the address into or across a macro-instruction. 



Index Words 
Indexing 



The use of an index word in an instruction for the purpose of indexing will cause 
the indexing portion of the index word to be added algebraically to the address 
portion of the instruction and this new address is used for the operation. Index- 
ing of symbolic and actual addresses may be specified in the operand of all 
imperative statements and Branch Control and End Control statements. Literals 
should not be indexed. 

With the Branch Control and End Control statements and with symbolic ma- 
chine instructions, the address of an index word follows the operand address, 
after field definers and address adjustment, if any, and is always preceded by a 
plus sign. An index word may be written symbolically or as the actual one- or 
two-digit number (1-99). When a symbolic r,ame is used, the processor will 
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antornaHcallv assign an actual index word address. When the actual number 

J O 

is used, the format is Xn. The X indicates that an index word address rather 
than address adjustment follows the plus sign. The n is the actual one- or two- 
digit number of the word. When used for other than indexing purposes, the 
form Xn will be considered a symbol. Indexing with Branch Control and End 
Control statements and symbolic machine instructions is written as follows: 
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Autocoder will interpret +X2 as index word 2 and +loop as the symbolic des- 
ignation of an index word. Note that blanks are not permitted within the address 
modification. 

With macro-instructions, the address of an index word follows the operand 
address and is enclosed by parentheses. The left parenthesis must be in the 
column immediately following the last character of the address being modified, 
except when the indexing goes to a continuation card (see "Continuation 
Cards"). Actual index word numbers are not preceded by an X and the actual 
or symbolic index word is not signed. In macro-instructions, the absence of a 
plus or minus sign preceding an index word distinguishes the index word from 
a signed, one- or two-digit address adjustment. If both address adjustment and 
indexing are used, one set of parentheses must enclose them both and the index- 
ing must precede the address adjustment. Indexing with macro-instructions is 
written as follows: 



Line 



Label 



Operation 
16 20 



1L 



25 



OPERAND 

35 40 



T A,B,L,E,(,R,0W l ) 



2 



3 



4 



LI,S,T,(,3,4), 



TABLE,! R ,0 W-,1,0 



L,I,S,T,(.3,4,+ ,1,7.) 



Autocoder will interpret 34 as index word 34 and bow as the symbolic desig- 
nation of an index word. Note again that blanks are not permitted within the 
address modification and, also, that field definition may not be used with macro- 
instructions. 



Uses Other Than 
Indexing 



Index words may be specified in symbolic machine instructions as the first entry 
in the operand of index word commands such as Index Word Load (xl) and 
Index Word Load and Interchange (xlix). They may also be used in com- 
mands such as Record Gather (rg) and Record Scatter (rs). The specification 
of an index word in a symbolic machine instruction does not prevent the use of 
indexing. The index word may be written in actual or symbolic form. When 
written in actual form, however, only the one- or two-digit address of the index 
word should be written; Xn would be interpreted as the symbolic designation 
of an index word. 
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The following are examples of the use of index words for other than indexing 
purposes: 
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Electronic Switches 



base and X3 will be interpreted as the symbolic designation of an index word 
and 2 as index word 2. 



Electronic switches may be referred to by a symbolic name or by their one- or 
two-digit actual number ( 1-30 ) . Symbolic names may be assigned to an actual 
switch number by use of the declarative statement equ (see page 82). As 
explained later, symbolic references to electronic switches will be assigned to 
an actual address during compilation. 

Unlike index words (see page 18), electronic switches will not be reserved 
if the location assigned to an imperative statement or if any location defined by 
a declarative statement falls within the range 0101-0103. 

Instructions referring to electronic switches are written as follows: 
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end will be interpreted as the symbolic designation of an electronic switch and 
19 and 28 as electronic switches 19 and 28. 



Input/Output Unit and Alteration Switch Designations 



The following items may be specified in actual or symbolic form in the operands 
of those instructions which refer to the particular items: channel, unit, com- 
bined channel and unit, combined arm and file, unit record synchronizers, in- 
quiry synchronizers, and alteration switches. The declarative operation equ is 
used to equate symbolic names to item numbers (see page 85). 
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Continuation Cards 



Certain Autocoder statements make provision for more parameters than may 
be contained in the operand (columns 21-75) of a single line on the Auto- 
coder coding sheet. When this is the case, the appropriate section of this manual 
will indicate that "Continuation Cards" may be used. Thus, when specifically 
permitted, the operand of a given line on the Autocoder coding sheet may be 
continued in the operand of from one to four additional lines which immediately 
follow. 

The label and operation columns must be blank and the continuation of the 
operand must begin in column 21; i.e., it must be left-justified in the operand 
column of the coding sheet. The operand need not extend across the entire 
operand column of either the header card or continuation cards but may end 
with the comma following any parameter. Remarks may appear to the right of 
the last parameter on each card provided they are separated from the operand 
by at least two blank spaces. 

Illustration of the use of continuation cards are included throughout the examples 
illustrating the various statements. 

If a continuation card follows a statement that does not permit continuation 
cards, the compiler will generate a nop and issue an error message. Additional 
restrictions regarding the use of continuation cards with macro-instructions ap- 
pear on page 106. 
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Reservation of Index Words and Electronic Switches 



The assignment of actual addresses to symbolic index word and electronic switch 
names occurs in Phase III of the Autocoder processor. The initial availability 
of index words and electronic switches is determined by a table which is included 
in the Compiler Systems Tape. This table originally indicates that index words 
1 through 96 and electronic switches 1 through 30 are available for assignment 
to symbolic references; index words 97 through 99 are not available. The initial 
setting of this table may be altered, however, as described in the 7070/7074 
Data Processing System Bulletin "ibm 7070/7074 Compiler System: Operating 
Procedure," form J28-6105. 

During the first pass of Phase III, references to the actual addresses of index 
words and electronic switches are collected and the availability table is updated. 
At the end of this pass, the table indicates which index words and electronic 
switches are not available for assignment to symbolic references. 

Both index words and electronic switches may have been made unavailable 
before the start of assignment in one of the following ways: 

1. The initial setting of the availability table indicated that the index word or 
electronic switch was not available for assignment. 

2. The one- two-digit number of the index word or electronic switch was used 
in the operand of a symbolic machine instruction to specify indexing or as a 
parameter which is always an index word or electronic switch, e.g., 
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3. The one- or two-digit number of the index word or electronic switch was used 
in the operand of an equ statement, e.g., 
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When the index words or electronic switches are reserved because of actual 
usage in the statements described above, the position or order of the statements 
within the program is not important; any such reference will make the index 
word or electronic switch unavailable at the end of this pass. 



18 



During the assignment pass of Phase III, index words and electronic switches 
are reserved as they are encountered during assignment. Index words and elec- 
tronic switches may be reserved in the following ways. The first two methods 
apply to both index words and electronic switches; the third applies only to 
index words. 

1. Durin^ the assignment '"ass each instruction is examined for reference to the 
symbolic name of an index word or electronic switch. When such a reference 
is found, an actual address is assigned and the availability table is changed 
so that the assigned index word or switch is no longer available for later 
assignment. 

2. If the one- or two-digit address of an index word or electronic switch is used 
or is included in the operand of an xreserve or sreserve statement (see page 
99), the corresponding index word or electronic switch is reserved. 

3. If a statement has been assigned an address in the index word area 

a. by means of an actual label or 

b. by means of an origin statement which refers to an actual address 

the corresponding index word will be reserved. These entries should normally 
appear at the beginning of the program or immediately following each 
litorigin statement. Otherwise, symbolic names may have previously been 
assigned to these same index words. (This method does not apply to elec- 
tronic switches.) 

The preceding methods allow efficient use of index words and electronic switches 
during a sectionalized or multi-phase program, particularly when used in con- 
junction with the litorigin statement. Extreme caution should be used, however, 
to avoid the conflicting usage of an index word or electronic switch which may 
result from the assignment of more than one name or function to the same 
address. 

If the symbolic name or actual address of an index word or electronic switch 
appears or is included in the operand of an xrelease or srelease statement ( see 
page 101), the specified index word or electronic switch will again be made 
available, regardless of the method by which it was reserved. It will not, how- 
ever, De used, tur symuuuc a»MjiiiiiiciiL uum an wiuei .h±\j.^.a. wwj.vj.o ui ^^vuumv 
switches have been assigned for the first time. 

If, at anv time during the assignment pass, the compiler finds that there are no 
more index words available for assignment, the warning message "no more 
index words available" will be placed in the object program listing, the table 
will be altered to show that index words 1 through 96 are available, and the 
assignment will continue as before. If the compiler finds that there are no more 
electronic switches available for assignment, the warning message "no more 
electronic switches available" will be placed in the object program listing, 
the table will be altered to show that electronic switches 1 through 30 are 
available, and assignment will continue as before. The resultant conflicting 
usage of index words or electronic switches may be avoided by reducing the 
number of symbolic names used, e.g., through the proper use of the equ, 
xrelease, or srelease statements. 

As noted in Appendix C, index words 97 through 99 are never available for 
assignment to symbolic names by the compiler; also, index words 93 through 96 
may have been made unavailable for assignment. 
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Declarative Statements 



Autocoder declarative statements provide the processor with the necessary in- 
formation to complete the imperative operations properly. Declarative state- 
ments are never executed in the object program and should be separated from 
the program instruction area, placed preferably at its beginning or end. Other- 
wise, special care must be taken to branch around them so that the program will 
not attempt to execute something in a data area as an instruction. If the com- 
piler does encounter such statements, a warning message will be issued. 7070/7074 
Autocoder includes the following declarative statements: da (Define Area), dc 
(Define Constant), drdw (Define Record Definition Word), dsw (Define Switch), 
dline (Define Line), equ (Equate), code, dtf (Define Tape File), diocs (Define 
Input/Output Control System), and duf (Descriptive Entry for Unit Records). 
da, dc, dtf, and dline require more than one entry. 

The da statement is used to name and define the positions and length of fields 
within an area. The dc statement is used to name and enter constants into the 
object program. Since the 7070 and 7074 make use of record definition words 
( rdws ) to read, write, move, and otherwise examine blocks of storage, the da and 
dc statements provide the option of generating rdws automatically. When so 
instructed, Autocoder will generate one or more rdws and assign them successive 
locations immediately preceding the area(s) with which they are to be associated. 
An rdw will be of the form ±00xxxxyyyy, where xxxx is the starting location of 
the area and yyyy is its ending location. These addresses are calculated auto- 
matically by the processor. 

In some cases, it may be more advantageous to assign locations to rdws associated 
with da and dc areas in some other part of storage, i.e., not immediately preceding 
the da or dc areas. The drdw statement may be used for this purpose. The drdw 
statement may also be used to generate an rdw defining any area specified by the 
programmer. 

As many as ten digital switches may be named and provided by the dsw state- 
ment for consideration by the setsw and logic macro-instructions. Each switch 
occupies one digit position in a word, can be set on or off, and is considered 
as logically equivalent to an electronic switch. It cannot^ however, be referred 
to by electronic switch commands, e.g., esn, bsn, etc. An individual switch or 
the entire set of switches in a word may be tested or altered as desired. 

Through use of the dline statement, a means is provided for specifying both the 
editing of fields to be inserted in a print line area and the layout of the area itself. 
The area may include constant information supplied by the programmer. The 
area may also be provided with additional data during the running of the object 
program by means of edmov or move macro-instructions. 

The declarative statement equ permits the programmer to equate symbolic 
names to actual index words, electronic switches, arm and file numbers, tape chan- 
nel and unit numbers, alteration switches, etc., and to equate a symbol to another 
symbol or to an actual address. 

The diocs, dtf, and duf statements are used when required by the Input/Output 
Control System, diocs is used to select the major methods of processing to be 
used, and to name the index words used by iocs. Each tape file must be described 
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by Tape File Specifications, produced by dtfs. In addition to information related 
to the~file and its records, the File Specifications contain subroutine locations aim 
the location of tape label information. A duf entry must be supplied for every 
unit record file describing the type of file and the unit record equipment to be 
used. The duf also supplies the locations of subroutines written by the user that 
are unique to the file. 

A full description of the diocs, dtf, and duf statements is contained in the 7070 
Data Processing System Bulletin "IBM 7070 Input/Output Control System, form 
T28-6033-1 Brief descriptions of these three declarative statements and detailed 
descriptions of the formats and functions of each of the other 7070/7074 Auto- 
coder declarative statements follow below. 
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D/OCS- Define Input /Output Control System 



When the Input/Output Control System is to be used in a program, a diocs 
statement must be used to select the major methods of processing to be used 
This statement also allows the naming of the index words used by iocs. 



Source Program Format The basic format of the diocs statement is as follows: 
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anylabel is any symbolic label; it may be omitted. The entry diocs must be 
written exactly as shown. 

The first item in the operand, iocsixf, is used to specify the first iocs index 
word for programs using tape files. This item may be a symbolic name or an 
actual one-digit or two-digit index word address in the range 3-94 If the first 
item m the operand is omitted, the symbolic name iocsixf will be assigned 
When an actual index word or a symbolic address is specified, Autocoder will 
equate the name iocsixf to it. 

The second item in the operand, iocsixg, is used to specify the second iocs index 
word for programs using tape files. This item may be a symbolic name or an 
actual one-digit or two-digit index word address in the range 3-94 If the sec- 
ond item in the operand is omitted, the symbolic name iocsixg will be assigned 
When an actual index word or a symbolic address is specified, Autocoder will 
equate iocsixg to it. 

The third item in the operand, iocsixh, is used to specify an iocs index word for 
programs using unit record files. This item may be a symbolic name or an ac- 
tual one-digit or two-digit index word address in the range 3-94 If the third 
item in the operand is omitted, the symbolic name iocsixh will be assigned When 
an actual index word or a symbolic address is specified, Autocoder will equate 
iocsixh to it. ^ 

The fourth item in the operand, chanh, is used to specify the number of the 
highest tape channel to be used by the program. Thus, the programmer would 
write chanI, chan2, chan3, or chan4 to show that the program was to use 
channel 1, channels 1 and 2, channels 1, 2, and 3, or channels 1 2 3 and 4 
respectively. ' ' 

The fifth item in the operand, oPENn, is used to specify the method of handling 
the open macro-instruction. The value of n may be 1-6. If 1 or 5 is used the 
special procedure discussed under "Use of open!" in the "ibm 7070 Input/Output 
Control System" bulletin should be followed. 

1. If opexI is entered in the operand, the opex subroutine will not be preserved 
m storage after it is used; other subroutines will be loaded into the locations 
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used bv the open subroutine. Thus, all tape files must be opened at the same 
time. The dtfs and File Schedulers must have been loaded into storage 
before this routine is loaded and executed. 
2. If open2 is used, the open subroutine will be retained in storage for use 
whenever needed. 

3 If openS is entered in the operand, the open subroutine will be written on 
" the tape provided for checkpoint records and read into storage whenever 

needed. The storage locations required for the open subroutine will be used 
for other subroutines during the time the open subroutine is on tape. When 
open3 is specified, eorI and chpt must also be specified. 

4 If open4 is used, the open subroutine will be retained in storage for use 
' whenever needed as for open2, except that Form 3 and Form 4 records 

cannot be processed and three input/output areas cannot be used for one file 
The open4 subroutine will occupy fewer storage locations than the open2 
subroutine. 

5 If the three-area rotating method is used, either openS or open6 must be 
' specified. openS and open6 contain provisions for the three-area rotabng 

system; otherwise they are the same as openI and open2, respectively. The 

dtfs and File Schedulers must have been loaded into storage before openS 

is loaded and executed. 
The sixth item in the operand, EOBn, is used to specify whether tape labels are 
to be processed in the End-of-Reel snbrontines. The valne of n m sonn may be 
either 1 or 2. 

1 The use of eorI in the operand specifies that the reading or writing of tape 
' labels is to be determined by the labellnf entry in the appropriate dtf tor 

each input and output file. eorI is required when open3 and/or chpt is 

specified. 
2. If eor2 is used in the operand, none of the input tapes may have labels nor 

will any labels be written on output tapes. 
The seventh item in the operand, chpt, is used to specify whether checkpoint 
records are to be written. If chpt is entered in the operand, checkpoint records 
will be written under the control of the dchpt statement; eorI must also be speci- 

fied. If chpt is omitted from the operand, no cnecicpunn rav.^ — y ~ 

The eighth item in the operand, iGENn, is used to specify the use of spool pro- 
grams and illegal double-digit character checking in the iocs tape error sub- 
routine. The value of the final n in igexii may be 1, 2, 3, or 4. 

1 Entering igenI in the operand indicates that a spool program(s) may operate 
' with this main program and that the tape error subroutine is to check for 

illegal double-digit characters. 

2 Entering igen2 in the operand indicates that a spool program* s) may operate 
" with this main program but that the tape error subroutine will not check for 

illegal double-digit characters. 

3 Entering igen3 in the operand indicates that a spool program will never be 
run with this main program but that the tape error subroutine is to check 
for illegal double-digit characters. 

4 Entering igen4 in the operand indicates that no spool program can be run 
with this main program nor will the tape error routine check for illegal double- 
digit characters. 
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Processing Techniques 



The mocs statement may appear only once in a program. As noted previously, 
the first three items in the operand may be used to specify names for certain 
index words used by the Input/Output Control System. Each of the remaining 
entries is used by Autocoder to determine the version of the corresponding iocs 
subroutine that will be produced. Since the generated material is located at the 
point where the mocs statement is encountered, the programmer should not 
include the mocs statement within a series of imperative statements. 

As noted previously, iocsixf, iocsixg, iocsixh, and/or chpt may be omitted from 
the operand. In each case, separating commas must be written. Thus if all four 
of the above items are omitted, the operand would appear as follows- 



Line 

3 51 



I 



2 



Label 



Operation 
16 20 



A.N.YLA.BEL, 



D.I.0.C.S 



25 



30 



OPERAND 

35 40 



^^xAHANjL^0 1 P 1 E,N l n...E.OR ,n, 1 ,, i i l RFM |n 



If a Diocs operand does not contain eight items (including omitted items indi- 
cated by a separating comma) the iocs subroutines will be generated as though 
the following mocs statement had been entered: 



Line 
3 s 



I j 
2 



Labe 



A NY L A.BEL 




D.I PC S 



--CJiA^a^O^flEJi^^p^^^^C^H^^^^JjR E N 1 



Error and Warning 
Messages 



If any of the individual items in a mocs statement are invalid, the processor will 
generate one of the following subroutines corresponding to the invalid item- 
chan2, open2 eorI chpt, or igenI. Thus, an incorrect entry as the fourth item 
in the operand would cause the processor to assume chan2, etc. 

CHAN ENTRY INVALID. TWO CHANNELS ASSUMED 

If the CHANn entry does not specify chanI or chan2, two channel schedulers 
will be generated. 

CHPT ENTRY INVALID. CHPT INCLUDED 

If the chpt entry is neither blank, nor "chpt," this message will be produced 
lhe checkpoint routine will be generated. 

CHPT REQUIRES EORl. EORl GENERATED 

If the chpt entry is not blank and if the EORn entry specifies eor2, this mes- 
sage will be produced. eorI will be generated. 

EOR ENTRY INVALID. EORl ASSUMED 

If the EORn entry does not specify eorI or eor2, eorI will be generated. 
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IGEN ENTRY INVALID. IGENl ASSUMED 

If the igend. entry is not in the range igenI to igen4, igenI will be generated. 

improper operand. chan2, open2, eorI, chpt, igenI assumed 

If the operand of the diocs entry does not contain 8 parameters, this message 
will be produced. An iocs package consisting of the items named in the mes- 
sage will be generated. 

iocsixf(g, h) entry out of range, ignored 

If any of the index words in the diocs entry is specified as actual, and if it does 
not lie in the range 3-94, this message will be produced. The specified index 
word will be ignored. 

OPEN ENTRY INVALID. OPEN2 ASSUMED 

If the OPENn entry is not in the range openI to open6, open2 will be generated. 

open3 requires chpt. open2 generated 

If the OPENn entry specifies open3 and if the chpt entry is blank, this message 
will be produced. open2 will be generated. 
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DTF — Define Tape File 



Source Program Format 



Each input and output tape file required by a program must be described by a 
set of File Specifications in a dtf statement. The dtf statement consists of a 
header line and 35 subsequent entries which describe the file, subroutine locations 
supplied by the user, and the location of tape label information. These lines are 
entered on the 7070 File Specifications Coding Sheet shown in Figure 3. 

Each dtf statement causes the generation of a nine-word File Specifications 
Table and a Tape File Scheduler which are used by the Input/Output Control 
System in conjunction with input and output tape file operations. In addition 
the Autocoder compiler used the information furnished by the dtf in order to 
generate the proper instructions when the name of the file is used in a macro- 
instruction. 



DTF Header Line 



The basic format for the dtf header line is as follows: 



Line 

3 51 



2 



Label 



Operation 
16 20 



ANY L.A.BE.L. 



DTF 



35 



OPERAND 

40 



FILENA ME 



DTF Subsequent Entries 



anylabel may be any symbolic label; if it is omitted, the processor will generate 
a label. The entry dtf must be written exactly as shown. The operand must 
contain the name of the tape file defined. This name will be used in the operand 
of macro-instructions which refer to this tape file. 

Although the line numbers for each dtf subsequent entry need not be the same 
as those which appear in the File Specifications Coding Sheet, a card must 
appear for each line, in the order shown. If a dtf does not consist of exactly 
36 entries, the processor will discontinue compilation. A label for each line is 
not necessary unless the entry will be referred to by the program; the labels of 
other entries may be blank. The operand for each entry must be as specified 
in the bulletin, "ibm 7070 Input/Output Control System." 



Processing Techniques 



Since the Input/Output Control System requires that all File Specifications 
Tables appear in consecutive locations, the programmer must insure that all dtfs 
are entered together at the desired point in the program. The processor will 
determine the location of the first dtf encountered and make this location avail- 
able to the appropriate input/output routines. A nine-word constant will be 
assembled at the point where each dtf is encountered. 

In addition, the processor will generate a corresponding Tape File Scheduler. 
This scheduler will be located with literals, adcons and other material generated 
out-of-line; placement may be determined by use of a litobigix statement. 
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When the processor finds that all consecutive dtfs have been assembled, it will 
generate a nop to signal the end of the series of Tape File Specifications Tables. 
If a separate dtf is encountered at some later point in the program, it will not be 
included in the series of File Specifications Tables and a warning message will 
be issued. The dtf will, in general, be assembled properly, but a corresponding 
File Scheduler will not be generated. Therefore, the ninth word of the assembled 
dtf will not contain the customary address of a File Scheduler. In addition, the 
assembled dtf will not be available to the Input/Output Control System during 
the object program unless it is moved to a point within the previously mentioned 
series of File Specifications Tables and the address of an appropriate File Sched- 
uler inserted in the ninth word. 

The product of the blocking factor (blocking, line 11) and the tape input/output 
areas ( tioareas, line 17 ) in the dtf for a particular tape file determines the num- 
ber of areas to be specified in the header line of the da entry which defines the 
area for the tape file records. ( See "N ( Area Number ) ," page 32. ) 

When the name of an input or output file is to be used in Autocoder macro- 
instructions which are not a part of the Input/Output Control System, the fol- 
lowing requirements must be considered: 

1. The name of the file used in the operand of the dtf entry must be identical 
to the name of the da entry which defines the areas for the input or output 
records. 

2. The operand of the da entry which defines the areas must specify an implicit 
index word and that index word must be the same as the operand of the 
indxwrda entry in the appropriate dtf. 
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DUF — Descriptive Entry for Unit Records 



When unit record files are to be handled by the Input/Output Control System, 
a duf entry for each file must be supplied which describes the type of file and 
the unit record equipment to be used. The duf entry also supplies the locations 
of subroutines written by the user that are unique to the file. 



Source Program Format The basic format of the duf statement is as follows: 



Line 

3 5] 



I , 
2 



3 
4 



Label 



Operation 
16 20 



ANY LABEL 



DUF 



35 



OPERAND 

40 



L l,S,T,A,D,D,R,,,l ■N,D,X,W,0,R,D,.,EO,F,A,D,DR.S,.. 



E RRAD.DRS 



Jasi 
50 



F I.LEN.AME,, F,l LE.TY.PE , C A,R PS Y.N.C ,, 



anylabel is any symbolic label; it may be omitted. The entry duf must be 
written exactly as shown. 

The first item in the operand, filename, is the name of the unit record file to 
be described by the duf entry. This name will be used in the operand of macro- 
instructions which refer to this unit record file. 

The second item in the operand, filetype, is a one-digit number from 1 through 
4 to specify the type of unit record file and the operating conditions. 

1. A 1 indicates that the unit record file is an input file and that the input unit 
used by the file will never be shared with a spool program. 

2. A 2 indicates that the unit record file is an output file and that the output 
unit used by the file will never be shared with a spool program. 

3. A 3 indicates that the unit record file is an input file and that the input unit 
may be shared with a spool program. 

4. A 4 indicates that the unit record file is an output file and that the output unit 
may be shared with a spool program. 

The third item in the operand, cardsync, is a one-digit number to specify the 
synchronizer to be used for the unit record file. A 4 must be used when an input 
file is to be read through an ibm 7501 Console Card Reader. 

The fourth item in the operand, listaddr, is the address, either actual or symbolic, 
of the rdw(s) for the unit record area generated by a da or drdw statement. 

The fifth item in the operand, indxword, is either a two-digit number from 03 
through 94 or a symbolic name which specifies the index word to be associated 
with the unit record file. The indexing portion (positions 2 through 5) of the 
index word will contain the location of the first word of the current unit record. 

The sixth item in the operand, eofaddrs, is an optional address that may be either 
actual or symbolic. The address specifies the location of a card reader end-of-file 
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routine or a printer carriage tape channel 9 routine to be entered if either condi- 
tion occurs. When this item is omitted and a card reader end-of-file condition 
occurs, the program will come to a programmed halt if no spool program is to be 
run in conjunction with it. If a spool program is to operate in conjunction with the 
program, the program will enter a loop to permit the spool program to continue. 
When this item is omitted, a channel 9 condition occurring during the printing 
of a unit record file will have no effect and the program will continue normally. 

The seventh item in the operand, erraddrs, is an optional address that may be 
either actual or symbolic. The address specifies the location of an error routine 
which will be entered when an error occurs during the execution of a macro- 
instruction which refers to the file named in the first item of the duf entry. If 
this item is omitted and an error occurs, the error record will first be typed on 
the console typewriter. When the file is an output file, the error record will also 
be punched or printed and processing then resumes automatically. When the file 
is an input file, the operator may correct the error card immediately and read it 
in again or he may depress the Start key and resume processing if immediate 
correction is not required. 



Processing Techniques 



The duf entries are entered with the source program when the program is 
assembled. They should be positioned in the same manner as declarative 
entries. 

As noted earlier, the sixth and seventh items in the operand are optional. When- 
ever the sixth item is omitted and the seventh item is included, the omission of 
the sixth item must be indicated by a comma; i.e., two commas will appear 
between the fifth and seventh items. When both items are omitted, commas 
are not required; only the first five items need appear in the operand. 



Error and Warning 
Messages 



The following error and warning messages will be issued during assembly under 
the conditions specified. 



ACTUAL ADDRESS NOT ALLOWED 



This message is issued if filename is not a symbolic name. The entire duf 
statement is ignored. 

AN ELEMENT OF THE OPERAND STARTS ILLEGALLY 

This message is issued in connection with the duf if either of the following 
conditions occur: 

1. The character following a comma is not alphabetic, numerical, blank or 
comma. 

2. filename begins with a blank. 

Processing will occur on all parameters ( if any ) which appear before the para- 
meter in error; the remainder will be ignored. 

LABEL SHOULD BE BLANK 

This message is issued if any continuation cards for the duf operand have an 
entry in their label column. The entry is processed properly but the label is 
ignored; if referenced by the program, it will be undefined. 
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OPERAND OUTSIDE OF ALLOWABLE RANGE 

This message is issued if: 

1. filetype is not 1, 2, 3, or 4. 

2. CARDSYNC is not 1, 2, 3, or 4. 

3. indxword, if actual, is greater than 99. 

The processor assumes that the value is 1 and normal processing continues. 
stmnt should or seems to be ended but cards remain 

This message is issued if there are continuation cards remaining but the cur- 
rent card includes the seventh parameter or ends with a blank. The remaining 
cards are ignored. 

SYMBOLIC ADDRESS NOT ALLOWED 

Issued if filetype or cardsync begins with an alphabetic character. Preceding 
parameter(s) will be processed; the remaining parameters are ignored. 



31 



DA — Define Area 



The declarative statement, da, may be used to define and reserve any portion of 
storage. An area may be reserved for use as an input, output, or work area, or 
contiguous areas may be reserved to contain a number of records, all of which 
are identical in format. The da statement instructs the processor concerning the 
positions, lengths, and names of fields which make up the record area(s) being 
defined, as well as the characteristics of the data which is to occupy each field. 
Such characteristics include format, implied decimal-point position, and double- 
or single-digit representation. Locations, field definers, and, if specified, implicit 
indexing are assigned by the processor to enable the programmer to refer to the 
fields by name in imperative statement operands. Thus, the programmer need 
not be concerned with the actual locations of the fields within storage. It should 
be remembered that the da statement does not provide the data for the field it 
defines, but only reserves the space which the data is to occupy. The data itself 
must be brought into the defined area in core storage from some external source 
such as cards or magnetic tape, or from other locations in storage. 

A da statement consists of a header line and one or more subsequent entries. 
The da header line is used to initiate the reservation of a portion of storage. The 
header line specifies the number of identical record areas to be reserved. An 
indication to generate rdws corresponding to the areas may be specified. Rela- 
tive addressing and implicit indexing, which facilitate referencing a field within 
a record area, may also be specified in the da header line. The subsequent 
entries define the fields within the record area, specify the amount of storage to 
be reserved, and describe the data which will appear in each field. 



Source Program Format 



DA Header Line 



The basic format of the da header line is as follows: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


OPERAND Basic A A 

21 25 30 35 40 45 50 / 


1 , 


ANY LA, BEL, 


DA, 


N . ±,RD.W„ A,DD.RE.S,S±,ADD,R,A.DJ,+ 1 N.DEXWO.RpJ 


2 




.... 


. i i . ■ i i i i i i i i — i — i — i — i — i — , — i — i — i — i — i — i — i — i — : — i — i — i — i 



anylabel is any symbolic label; it may be omitted. The operation code, da, 
must be written exactly as shown. With the exception of the first entry, n, the 
items in the operand are optional. An explanation of the entries in the operand 
follows. 

N (Area Number), n, the first entry in the operand of the da header line, 
may not be omitted, n is replaced by the number of identical record areas to be 
reserved by the da operation, the format of which is defined by the programmer. 
For example, suppose that records of identical format are to be read into storage 
in blocks of ten. The programmer might enter a da header line with n equal to 
10, followed by subsequent entries which specify the starting and ending posi- 
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tions, characteristics, and names of the fields composing one record. If all other 
items in the operand were omitted, the da header line would appear as follows: 



Line 
3 5 



Label 



Operation 
16 20 



21 



25 



30 



OPERAND 

35 40 



«J 



ANY LABEL. 



DA 



10 



n may be any unsigned number from 1 to 9999; it is limited only by the size of 
storage. ( Frequently, n will equal 1, as in a work area or a unit record input or 
output area.) The number of storage words to be reserved for the entire da 
area (excluding rdws, if any) will be x times the number of words reserved for 
the one record defined by the subsequent entries. The maximum number of 
words which may be reserved for an entire da area is also limited only by the 
size of storage. 

If the da is to reserve contiguous areas of storage that are to contain a number 
of input or output records having identical format, then n must equal the prod- 
uct of the blocking factor and the tape input/output areas indicated in the dtf 
for the file (see page 28). If the blocking factor for a tape file is 10 and the 
programmer only wishes to use one area of storage for input or output, then n 
should equal 10. However, if the programmer wishes to use two consecutive 
areas of storage for input or output, then n must equal 20 and if he wishes to 
use three consecutive areas, then n must equal 30. 

RDW (Record Definition Words). Record definition words are required by 
the 7070 and the 7074 for reading in and writing out data and for moving 
blocks of data within storage. If "rdw" is written in the operand of the da 
header line, the processor will automatically generate n rdws associated with 
the n defined areas. These rdws will be assigned x locations immediately pre- 
ceding the first word of the first area defined. 

If rdw is not preceded by a sign, all generated rdws will be plus except the last, 
which will be minus. If a + or - sign precedes rdw, all generated rdws will be 

If rdw is not written in the operand, rdws will not be generated; the first word 
reserved by the da statement will be the first word of the first record area. 

For example, suppose that an area is to contain a group of four 10-word records 
and that the following da header line is entered, the fields within a record being 
defined by subsequent entries: 



Line 
3 5 


Label 

6 


15 


Operation 

16 20 


21 


25 


30 


OPERAND 

35 40 


45 


0,1 , 


RECO R D 

ii i i ■ i i i . 


D,A , , 


*n 


.R.D.W. , 






, , ( 


2 


— i — 1 1 1 1 i 1 ; 1 


iii. 


— . — 1 — 1 — l — l — i — i i 1 — L. 111,1111.111,11 



Assume that Autocoder's location assignment counter contains 1000 when the 
above da statement is encountered. The processor will generate the following 
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rdws associated with the four record areas and assign them to locations imme- 
diately preceding the first record area: 



Symbol 



Location 



RDW 



RECORD 



1000 
1001 
1002 
1003 



+0010041013 
+0010141023 
+0010241033 
-0010341043 



Note that the first rdw, located at 1000, defines the first 10-word record area 
beginning at 1004; the second rdw, located at 1001, defines the second 10-word 
record area beginning at 1014; etc. If rdw had been omitted from the da header 
line, the first word of the first 10-word record would have been located at 1000; 
no rdws would have been generated. 

rdws may also be defined elsewhere by using the drdw statement. 

ADDRESS (Relative Addressing). The fields defined in subsequent entries may 
be assigned addresses relative to (i.e., beginning with) an address specified 
in the operand of the da header line, address may be written in actual, *, or 
symbolic form. When a relative address is specified, it will usually be 0. 

Assume that a relative address of is specified, as in the following example: 



Line 

3 5 


Label 

6 


15 


Operation 

16 20 


21 


25 30 


OPERAND 

35 40 


" 


1 , 


ANYLA.BEL 


DA. . . 


2,0,, 


,RD.W,,,0, , . , 




..( 


2 


ii ii i . i. j..,j 


>ii. 


, i i i i i, i i i i i i i i i i i i i i i i i i i\ 



In this case, any field which occupies the first, second, or third word, etc., of the 
area beyond the generated rdws will be assigned relative addresses of 0000, 0001, 
0002, etc., respectively. Thus, if fieldc is the name of a field occupying the 
third word of each record, the instruction 



Line 
3 5 


Label 

6 


15 


Operation 

16 20 


21 25 30 35 


OPERAND 

40 


45 1 


o ', 




Z,A,1 


F,I.E.L,D.C,(,0,,,4.)+,X,1,1 <v 


2 


II 1 1 1 1 1 1 1 


i i i i 


■ > ' ' ■ • i i i i i i i i i i i i i \ 



would be translated in the object program as +1311040002. Since twenty identi- 
cal areas have been reserved and since the third word of each of the twenty 
areas is addressed fieldc and assigned the relative address 0002, one of the 
twenty areas referred to by an instruction must be specified. The desired area 
may be indicated by indexing the individual instruction (as illustrated) or by 
implicit indexing (as explained in the next section). Referring to the illustra- 
tion, the indexing portion of index word 11 must have been programmed to 
contain the starting location of the area to be processed. Then, when indexing 
takes place, the indexing portion of index word 11 is added algebraically to the 
relative address of fieldc, 0002, resulting in the actual address of fieldc. 
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The presence of a relative address in the da header line does not affect the reser- 
vation of storage. The generated bdws define the actual record areas reserved; 
they are also unaffected by the absence or presence of relative addressing. For 
example, assume that the location assignment counter is at 1000 when the follow- 
ing da header line is encountered: 



Line 
3 5 


Label 

6 


15 


Operation 
16 20 


21 


25 30 


35 


OPERAND 

40 


45) 


1 , 


ANY, LA. BEL, . 


DA, 


2,0,, 


.R.D.W.,.0, , . 








2 


i i . . l. . j____i _ — i — : : — 


i i i i 
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Twenty bdws associated with the twenty record areas will be assigned locations 
1000 through 1019. If the subsequent entries define a record that is ten words in 
length, the first bdw generated at 1000 would be +0010201029 and the first word 
of the first record would be assigned to 1020, the second to 1021, etc. 

If relative addressing is specified, but rdws are not to be generated, commas 
must appear in two consecutive columns, as in the following example: 



Line 

3 51 



Label 



Operation 

16 20 



AN.Y.LA.B.EL, 



D,A, 



i2J_ 



25 



30 



OPERAND 

35 40 



2,0 A.D.D.R.E.S.S.+ .I.N,D.E,X.W.O.R.D. 



2 



_1 I I L. 



ADDRADJ (Address Adjustment). Address adjustment is permitted with a 
relative address in symbolic or * form. However, when a relative address is 
specified, it will usually be and address adjustment will not appear. 

Address adjustment, when used with an * or symbolic address, will appear as in 
the following examples: 



Line 
3 5 


Label 
6 15 


Operation 

16 20 


OPERAND ( 

21 25 30 35 40 45 J 


O 1 , 


A.R.E.A.N.AME. , 


D,A, , , 


3 ...R.D.W., AD,D,R.E,S,S,-,IO,+, 1 ,N,D.E,X,W0,R,dV 


02 




. 


\ 


3 




. 


/ 


4 
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5 


R,E,C,0,R.D, , , , 


D.A, , , 


■L,0,0 1 ,.,.*,-r- 1 l,+,l 1 N,D,E,X,W 1 0,R,D / 


6 





' ■ ' 1 


i i i i i i i i i i i i i i \ 



.35 



INDEXWORD (Implicit Indexing). An index word, either symbolic or actual, 
may be specified in a da header line as in the following examples : 



Line 
3 ! 


Label 

6 15 


Operation 
16 20 


OPERAND f 

21 25 30 35 40 45\ 


1 , 


ARE A NAME, , 


DA . 


15, .,R,D,W,, A.DD.RE.SS + .INDE.X.WO.R.D, J 
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E, 
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13 ADD.R 
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X,W,0 


R 


D, ,/ 
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8 
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0,U,T,P,U.T,F 


1 


L,E 


DA . , 


2,0 A.D.D.R 


E,S.S,+ ,X,1,5. , , 
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1 1 




















',2, 


















\ 


1 3 


C.H.AN.G.E.F 


1 


L, E 


DA , , 


B^RAWmAD 


D.R.E.S.S.+ .l.O.+ .X 


7, , 




■ ) 


1 4 






, 




11 1 i 1 1 L 


i i i i i i i j , 


L. 1 1 




L 1 l\ 



In these examples, indexword is the symbolic name of an index word; X15 and 
X7 are the actual addresses of index words. Note that a plus sign must always 
precede the name of the index word and that actual numbers of index words 
must be preceded by "+X." The specification of indexing follows address ad- 
justment, if present, or the relative address itself, if address adjustment is not 
used. 

The naming of an index word in the header line has no effect upon the storage 
reservation and location assignments produced by the da. It does facilitate writ- 
ing instructions which reference fields in one of the records within the defined 
area. When the compiler encounters an instruction referencing such fields, the 
instruction will be examined for the presence of indexing. If indexing already 
appears in the instruction, it will be left unchanged. If indexing does not appear 
in the instruction, however, the address of the index word specified in the da 
header line will be inserted in the index word positions of the instruction. Thus, 
if it is known when coding a da that the record defined by it is to be processed 
by indexing, the indexing may be caused by making the single notation in the da 
header line, rather than by supplying the indexing in every instruction which 
acts upon the record. 

Consider an example in which the compiler encounters the following da header 
line: 



Line 

13 51 



Label 



Operation 
16 20 



1L 



25 



30 



OPERAND 

35 40 



AR.EANAM.E, 



2 



_i i i i i_ 



DA 



1.0.0,. . t .0.+ .X.2,5. 
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Each field in a record will be assigned a location relative to 0. If field2 is the 



label 



it Held OtJUUUYlllii mc acv^uiiu r*wu w± v/Ci^xi 



fVw 



f-V. 



ie 



instruction 



Line 
3 96 


Label 


IS 


Operation 
16 20 


21 25 


30 


OPERAND / 

35 40 45S 


0,1, 




Z.A1. . 


F.I.E.LD.2 ( 


°, 2 , 


illll _1 1 1 L_ 


1111 


i i i i i i i i i — i — i — i — i — i — i — i — i — \ 



will result in an assembled machine instruction of +1325090001. Notice that the 
6-9 portion of the instruction is 0001, but that this address is to be indexed by 
index word 25. The indexing portion of index word 25 must have been pro- 
grammed to contain the starting location of the area to be processed. Then, by 
indexing the instruction by index word 25, the indexing portion of the index 
word is added algebraically to the relative address of field2, 0001, resulting in 
the actual address of field2. 

If, however, the field had been referred to by an instruction which already in- 
cluded indexing, such as 



Line 
3 5 


Label 

6 


15 


Operation 

16 20 


21 25 30 


OPERAND 

35 40 


45/ 


1 , 




Z.A.1. 


F l,E,L,D,2,+ ,X,2,9 ,^ 


2 


11111.1 J- J — 


iii, 


i i . i i i i i i i i i i i i i A 



the assembled instruction would have been +1329090001, thus ignoring the 
specification of index word 25 in the da header line. 

As demonstrated by the previous examples, the use of a da header line to specify 
a relative address and implicit indexing is most valuable in processing blocked 
tape records. If the fields of a record are defined as relative to and the edws 
associated with the records are successively loaded into the index word specified 
in the da header line, instructions to act upon the fields of the record may be 
written as if no indexing was required. Autocoder will insert the address of the 
index word into the index word positions of all such instructions. 

For another example, assume that an area is to contain a group of four 10-word 
records. Assume also that it is desired to perform the following operation on 
three fields named fielda, fieldb and fieldc, which occupy the first, second and 
third words, respectively, of each record: subtract the contents of fieldb from 
the contents of fielda and store the result in fieldc. This could be accomplished 
by the following coding: 
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Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 ] 


1, 


I.N.A.R E.A, , 


DA, 


4 ,,+,RD,W, + X.2 . 
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8 


• i .1..-.1. 




Z.A.l 




F.I.E.L.D.A. 
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Assume that Autocoder's assignment counter contains 1000 when the da state- 
ment is encountered, 2000 when the first instruction of the routine is encountered, 
and the literal +0000000003 has been assigned location 4432. The corresponding 
assembled machine-language instructions would be as shown below: 





Assembled 


Location 


Instruction 


2000 


+4500034432 


2001 


+4503021000 


2002 


+1302090000 


2003 


-1402090001 


2004 


+1202090002 


2005 


+4900032001 



DA Subsequent Entries 



Subsequent entries under a da header line are used to name fields, to indicate 
their starting and ending positions within the record area, and to specify their 
format. The subsequent entries, taken collectively, indicate a logical assemblage 
of words, the number of which is multiplied by the number n in the da header 
line to determine the amount of storage ( excluding rdws, if any ) to be reserved 
by the da. 

The label column of a da subsequent entry may include any symbolic name or 
may be left blank (except as noted for the special operation, code, which is 
explained on page 50). The operation column is left blank, except when used 
for the code entry. 

Field Position and Length. The position and length of a field within the 
record area is indicated in the operand by writing the starting digit position, 
a comma, and the ending digit position. If the area is considered to be a con- 
secutive string of digits, the first being 0, the position of any digit is identical to 
its placement in the string. Thus, a field occupying the entire first word of a 
record area would be defined as follows: 
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Line 



56 



Label 



Operation 
16 20 



25 



30 



OPERAND ( 

35 40 45^ 



0! 



ARE A.NAM. E, 



DA 



0.2 
3 



FIE.L.D.A, 



0.9 



In the above example, is the digit position of the first character and 9 is the 
digit position of the tenth and final character in fielda. 

A field occupying the entire second word of a record area would be defined as 
follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 j 


0,1 , 


ARE A.NAM.E, , 


D,A, . . 




2 


F.IE.LD.B , , , 




i.O, . ,1,9, , , , , 1 , 1 I J 


3 


iii 


, 


i , i i , , , i\ 



A field occupying the last two digits of the third word of a record area would 
be defined as follows: 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


21 25 


30 


35 


OPERAND 

40 


45/ 


0,1, 


A.R.E.A.N.AME, . 


D,A, . , 




2 


F.I.E.L.D.C. , , , 






3 
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i i i i 
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A digit position, therefore, is a combination of a word number (consisting of 
one, two, three, or four numerical characters) followed immediately by a digit 
number (always one numerical character). The first word of the area is referred 
to as word 0, the second as word 1, the third as word 2, etc.; digits within a word 
are numbered through 9, left to right, in the normal fashion. Thus, digit posi- 
tion 49 would refer to the low-order digit in the fifth word of a record area; 
digit position 9990 would refer to the high-order digit in the thousandth word of 
a record area. 

It is not necessary to enter leading zeros; the following operands would have 
exactly the same effect: 

12,25 

00012,00025 

A one-digit field may be entered by writing the single digit position only. Thus, 
the following operands would have exactly the same effect: 

19,19 
19 

In either case, the processor would reserve the low-order digit position of the 
second word of the record area. 
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The following example provides additional illustrations of entries which define 
the length and position of fields within an area. 



Line 

3 5 


Label 
6 13 


Operation 

16 20 


OPERAND ( 

21 25 30 35 40 45 J 


0.1 , 


R.E.C.O.R.D. 
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An eight- word record is defined (digits 0-79). The first field, nameone, occupies 
a total of 17 digit positions beginning with the high-order position of the first 
word of the record, nametwo and namethbee are fields of lengths 3 and 10 
digits, respectively. 

A gap of 23 digits then occurs, followed by namefour, a five-digit field. This 
is followed by namefive, a one-digit field. (Since the starting and ending digit 
positions are identical, the one number, 58, suffices. ) 

A subsequent entry is always required when a field is to be named for reference 
by the object program. Other fields in a record need not be defined by a subse- 
quent entry except for an entry to terminate the record. The field must appear 
but need not have a label. Thus, in the example above, the one-digit field in 
digit position 79 is not named, but it is necessary in order to establish that eight 
words are occupied by the record. Any digit in the eighth word (73, for example) 
would cause the da area to be comprised of eight full words, since a record is 
never terminated in the middle of a word. 

Subsequent entries may be entered in any order. However, fields are normally 
entered in ascending storage-position order for convenience and accuracy. 

The net effect of the following coding would be identical to that of the preceding 
example, despite the order of the subsequent entries: 



Line 
3 5 
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Operation 

16 20 


OPERAND ( 
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Subfields are entered in the same da which defines the fields. Any desired 
breakdown of the fields may be indicated by writing the starting and ending 
digit positions of subfields which overlap, fall within, or bridge other fields. 
Again, the order is irrelevant. The following example illustrates the coding of 
subfields: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45/ 


1 


CALEN.DAR, 


D.A, . , 


1,,R,DW ]) 


2 


DATE , 




7 4, , ,7.9. 
















3 


DAY 




7 6.,, 7, 7. 
















0.4 


YEAR . 




7,8, ,.7,9. 
















5 


MONT H 




7,4, ,,7,5, 
















6 


DECAD.E , 




7,8, , , , 
















7 




p i 


iiiii 












I i , , 





In this example, date will reference the entire date field; the subsections of the 
date field may be referred to as month, day, or year. In addition, decade 
references a one-digit field within year and also, therefore, within date. 

Relative Field Definition. The primary function of the da declarative opera- 
tion is to instruct the processor as to the positions and lengths of fields within 
an area, thereby allowing the processor to assign storage locations and field 
definers automatically when a field is referred to by name in the operand of an 
instruction. Sometimes it may be desirable to refer to a portion of a field which 
has been defined by a declarative operation. For the convenience of the pro- 
grammer, this is done relative to the field itself, so that it is not necessary to 
remember the actual digit positions of the field. 

To illustrate, assume that the name custno is a field of seven digits, defined under 
a da as follows: 



Line 

|3 51 



Label 



Operation 
16 20 



25 



30" 



OPERAND 

35 40 



0. I 



I NP UT ARE A 



DA 



2 
3 



CUSTNO 

i i i ' ■ 



0.3...0.9, 



A field might occupy only the low-order digit positions of a word, as does custno 
above. However, positions within the field itself are numbered starting with 0. 
If the programmer wishes to refer to the three high-order positions of custno, 
he would refer to positions 0, 1 and 2 by placing the entry custno (0, 2) in the 
operand. During assembly, the processor will convert the field definers relative to 
custno to field definers which refer to actual digit positions of a word. Thus, dur- 
ing assembly, the processor will convert custno (0, 2) to the actual digit positions 
3, 4 and 5 of the word of which custno is a portion. If the storage location of this 
word is 1001, symbolic instructions using custno and their assembled equivalents 
might be as follows: 
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Symbolic Instruction 



Assembled Instruction 



za1custno(0, 2) 
za1custno(4, 5) 
zaI custno 



+1300351001 
+1300781001 
+1300391001 



custno might instead be defined as a full word, as follows: 



Line 



Label 



Operation 
16 20 



21 



25 



30 



OPERAND 

35 40 



DA, 



2 



00 , 09 



_i i i i i_ 
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In this case, any field definition following custno would be both relative and 
actual. If the storage location of this word is 1001, symbolic instructions using 
custno and their assembled equivalents might be as follows: 



Symbolic Instruction 



Assembled Instruction 



zaI custno (0,2) 
zaI custno (4, 5) 
zaI custno 



+1300021001 
+1300451001 
+1300091001 



In the example on page 41 illustrating how subfields are entered, the subfield day 
would be equivalent to date (2, 3). 

Format Indicators. In addition to defining the position and length of a field, 
a da subsequent entry may also specify format and characteristics for that 
field. It will be noted that Autocoder macro-instructions are capable of acting 
upon fields which bridge words, which exceed ten digits in length, or whose 
decimal points are not aligned. The macro generators will consider the formats 
for the fields concerned; they will then generate instructions to align decimal 
points while performing arithmetic and compare operations, and will convert a 
field from one format to another format. 

Five different types of fields may be designated by writing the proper format 
indicators immediately after the ending digit position of the field. The following 
indicators may be used to indicate to the processor the format of the data that 
will occupy the field at object program time. 



Format Indicator 



Meanim 



The field is to contain numerical data 
to be treated as an automatic-decimal 
number. Although automatic-decimal 
fields must not exceed 20 digits for 
arithmetic operations, longer integer 
fields may be defined, and are acceptable 
to some macro-instructions. 

The field is to contain numerical data 
to be treated as a floating-decimal num- 
ber. The field must be exactly 10 digits 
in length, beginning in digit position 
of a word; it may not bridge words. 
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Format Indicator Meaning 



@ The field is to contain the double-digit 

representation of alphameric characters. 
The data is to be treated as neither an 
automatic-decimal nor a floating-decimal 
number. The field may be any desired 
length; the number of digits in the field 
must be evenly divisible by two because 
each character is represented by two 
digits. The field must start at an even- 
numbered digit position. 

@A The field is to contain the double-digit 

representation of data which is to be 
treated as an automatic-decimal num- 
ber. The size of the field must not ex- 
ceed 40 digits (20 characters). The 
number of digits in the field must be 
evenly divisible by two because each 
character is represented by two digits. 
The field must start at an even num- 
bered digit position. 

@F The field is to contain the double-digit 

representation of data which is to be 
treated as a floating-decimal number. 
The size of the field must be exactly 
20 digits, occupying two full words; it 
may not be split among three words. 

If format indicators are omitted, the processor will assume that the field is to 
contain numerical data to be treated as a signed integer: 

1. For fields less than or equal to 20 digits in length, this is equivalent to an 
automatic-decimal field. 

2. For fields longer than 20 digits, see individual macro-instructions for the 
treatment of long integer fields. 

Users are strongly urged, however, to furnish format indicators in da subsequent 
entries. 

Decimal-Point Indicators. In the case of automatic-decimal numbers, indi- 
cators may also be used to indicate where the decimal point would fall if it 
were included in the field. (It should be noted that the decimal point is thus 
implicit, or "understood"; it is not actually to be included in the field nor is a 
field position to be reserved for it. ) The implicit positioning of the decimal point 
is done by placing an indicator of the form 

a.b 
immediately to the right of the A or@A format indicator. The "a" is replaced by 
the number of characters to the left of the implicit decimal point in the field 
described; the "b" is replaced by the number of characters to the right of the 
implicit decimal point. The sum of these indicators must not exceed 20 char- 
acters in length and must exactly equal the number of characters defined by the 
starting and ending positions for the field. For a numerical field, then, (a + b) 
must equal the number of digits defined for the field; for a double-digit repre- 
sentation, however, ( a + b ) must equal one half of the number of digits defined 
for the field. 
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For example, the operand 



20,25A4.2 



informs the processor that the field which occupies digit positions 20 through 25 
should be operated upon as if it included six digits of numerical data and a 
decimal point fell between the four high-order digits and the two low-order 
digits. 

However, the operand 

20,25@A2.1 

informs the processor that the field should be operated upon as if a decimal 
point fell between the two high-order characters and the low-order character 
of a three-character alphameric field. ( It will be remembered that one character 
occupies two digit positions. ) 

When an integer is defined, the decimal point and the number of decimal posi- 
tions may be omitted. Thus, the following entries would have the same effect: 

20,29A10.0 
20,29A10 

If the A or @A format indicator is not followed by decimal-point indicators, the 
processor will assume that the field is to contain an integer. Users are strongly 
urged, however, to furnish format indicators and decimal-point indicators for 
automatic-decimal numbers in da subsequent entries. Specification of these 
characteristics makes it possible for macro generators to perform diagnostic 
analysis of the source-program statements, and thus aid in minimizing problems 
in program testing. 

Additional examples of the use of format and decimal indicators are given below: 



Line 
3 5 


Label 

6 13 


Operation 
16 20 


OPERAND ( 

2! 25 30 35 40 45 J 


1 , 


l,N,P UT 


DA 


1 ..R.D.W, . . ( 


2 


£ 


1 


E.LD.A , 






10,,, 1,5 A4., 2 
















3 


F 


1 


E.LD.B, 






2 4., .2.9®, , , 


















04 


F 


1 


E.L.D.C 








3,0,,,3,9.F, , , 
























5 


F 


1 


E.LD.D 








46,, ,5,5.(3 A3 . 


2 






















6 


F 


1 


ELD.E 








6.0,.,7,9.@,F. , 






















} 


7 


£ 


1 


E.LD.F 








8,0,,,8,5.A6, .0 






















S 


8 


F 


1 


E.L.D.G 








8.6. ,.8.9.@.A.2.. 























i 


9 






i i i 


1 1 ! 






...ii.ii 












i ' 










k 



fielda reserves the six high-order positions of the second word of the record 
area for an automatic-decimal number which will have, at most, four integer 
places and two decimal places. 

fieldb reserves the six low-order positions of the third word of the record area 
for a maximum of three alphameric characters. 

fieldc reserves the entire fourth word of the record area for a floating-decimal 
number. 

fieldd reserves the last part of the fifth and the first part of the sixth words of 
the record area for an automatic-decimal number in double-digit form, having 
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at most three integer places and two decimal places. Ten digit positions must 
be reserved, however, because of the double-digit representation. 

fielde reserves the seventh and eighth words of the record area for a floating- 
decimal number in double-digit representation. 

fieldf reserves the six high-order positions of the ninth word of the record area 
for an automatic-decimal integer. 

fieldg reserves the four low-order positions of the ninth word of the record area 
for the double-digit representation of an automatic-decimal integer. 

Two or more symbolic names may be assigned to the same field and the same 
characteristics by listing both names as subsequent entries under the same da 
and duplicating the operand desired, as in the following example: 



Line 

3 5 


Label 

6 15 


Operation 

16 20 


OPERAND <J 

21 25 30 35 40 45S 


1 , 




DA, , 


10,,,RD.W,,,0,+ I.ND.EXW.ORD , . ( 


2 


F.I.E.LD.A 






0...9.A.6...4, 
















3 


A 






,.9,A,6..,4. 


















4 


F.I.E.L.D.B. 






2,0,.,2,9.F, 


















5 


B 






2,0... 2. 9. F. , 


















6 


F.I.E.L.D.C, 






4,2., .5,9.(8, , 


















7 


c 






4,2,., 5,9.(3. , 


















8 




, , 




i i i i i .1 




.. 1 















In this example, A is made equivalent to fielda, B is made equivalent to fieldb, 
and C is made equivalent to fieldc. Any reference to A, B, or C will give pre- 
cisely the same results as those which would result from reference to fielda, 
fieldb, or fieldc, respectively. 

The contents of a given field may be treated as having different characteristics 
at various times by defining that field using more than one subsequent entry, as 
in the following example: 



Line 
3 5 


Label 

6 


IS 


Operation 

16 20 


OPERAND 

21 25 30 35 40 


45) 


1 , 




D,A 


10,,,RD,W | ,,0 1 +,I 1 N,D,E,X,W,0R,D < 


2 


F.I.E.LD.A , , 




,,9,A,6..,4 ) 


3 


A 




0,,,9,A8...2 <> 


4 


i : i i i i i i i 


, i i i 


1 1 1 1 1 1 1 1 L_L .1. 1 1 1 1 1 1 1 1 1 1 1 1 1 l\ 



Each reference to the field must be to the label which is associated with the 
characteristics that apply to the contents of the field at that particular time in 
the object program. 



Processing Techniques 

Use of DA With Symbolic 
Machine Instructions 



Although the programmer will usually find it more efficient to use macro-instruc- 
tions to refer to da header lines and subsequent entries, symbolic machine in- 
structions may also be used for this purpose. When a symbolic machine instruc- 



45 



tion references a symbolic label, however, it will operate directly on a maximum 
of a single full word. Certain additional restrictions must also be considered; 
these are noted below. 



DA Header Line. When a symbolic machine instruction references the label 
of a da header line, it will operate on the entire first word reserved by the da 
statement. Thus, if rdw generation is specified, the symbolic machine instruction 
will act on the entire word containing the first generated rdw. If rdw generation 
is not specified, the symbolic machine instruction will act on the entire first word 
of the first record defined. Symbolic machine instruction references to the label 
of a da header line are not affected by the presence or absence of implicit index- 
ing. 

The above usages are illustrated by the examples on page 47. 



DA Subsequent Entry. When a symbolic machine instruction references the 
label of a da subsequent entry, it will act only on that portion of the field 
which falls within the word containing the starting digit position defined by the 
subsequent entry. The specification of implicit indexing will cause the symbolic 
machine instruction to address a word ( or portion of a word ) in the current rec- 
ord, as determined by the contents of the specified index word. If implicit index- 
ing is not specified, the word ( or portion of a word ) addressed will be within the 
first record as defined by the subsequent entry. 

The above usages are illustrated by the examples on page 47. 



Use of DA with The Autocoder language is designed to allow record processing to be accomp- 

Macro-insfructions lished without regard to the number of records that may appear in one block of 

input or output. Thus, when a macro-instruction refers to the label of a da header 
line, one complete record will be the maximum that is affected or considered. ( It 
should be noted that, in some cases, only part of the record will be affected or 
considered. ) When n is greater than 1, therefore, no single reference by a macro- 
instruction to the label of a da header line will ever affect or consider the entire 
area reserved. 

Regardless of the absence or presence of specified rdw generation in the da 
header line, the effect of a macro-instruction reference to the label of a da header 
line or subsequent entry will be as follows: 



1. When a da header line does not contain a relative address and implicit index- 



ing 



(a) a macro-instruction reference to the label of the da header line will cause 
the generation of coding which will affect or consider (as a maximum) 
the first record, as defined by the subsequent entries under the da header 
line. 

(b) a macro-instruction reference to the label of a subsequent entry will 
cause the generation of coding which will affect or consider ( as a maxi- 
mum) the named field within the first record, as defined by the subse- 
quent entries under the da header line. 

This technique would normally be used when a work area is defined; i.e., x 
is 1 and the first record is, therefore, the only record defined. 
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PAGE AA PROGRAM DA 

LN CDREF LABEL OP OPERAND 



EFFECTS OF SYMdOLIC MACHINE 
LABEL OF DA HEADER LINE. 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


0002 


02 


0003 


03 


0004 


04 


0005 


05 


0006 


06 


0007 


07 


0008 


08 


0009 


09 


0010 


10 


0011 


11 


0012 


12 


0013 


13 


X 


14 


X 


15 


0014 


16 


0015 


17 


0016 


18 


0017 


19 


X 


20 


X 


21 


0018 


22 


0019 


23 


0020 


24 


0021 


25 


0022 


26 


0023 


27 


0024 



INSTRUCTION REFERENCE TO 



AREA1 



AREA2 



AREA3 



AREA4, 



AREA5 



2A1 



ZA1 



ZAl 



DA 



ZAi 



DA 



ZAl 



1 

12*25 

AREA1 

2 
12.25 

AREA2 

2»RDW 



12.25 
AREA3 



2.RDW.0-HNDEXWQRD 



12.25 
AREA4 



2..0+X15 

12.25 

AREA5 



00001 



+0003250327 
29 0326 

0328 +1300090325 



00002 



00003 



00004 



00005 



+0003290334 



29 0330 



0335 +1300090329 



0360 +1300090354 



0326 



0330 







+0003360343 






0336 


+0003380340 


0336 




0337 


-0003410343 


0337 


29 


0339 




0339 




0344 


+1300090336 
+0003450352 






0345 


+0003470349 


0345 




0346 


-0003500352 


0346 


29 


0348 




0001 




0353 


+1300090345 
+0003540359 




29 


0355 




0001 



PAGE AA 
LN CDREF 

01 0028 

02 0029 

03 0030 

04 0031 

05 0032 

06 0033 

07 0034 
06 0035 

09 0036 

10 0037 

11 0038 

12 0039 

13 X 

14 X 

15 0040 

16 0041 

17 0042 

18 0043 

19 X 

20 X 

21 0044 
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23 0046 
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25 0048 

26 0049 

27 0050 



PROGRAM DA 
LABEL OP 



OPERAND 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001* 

CDNO FD LOC INSTRUCTION 



EFFECTS OF SYMdOLIC MACHINE INSTRUCTION REFERENCE TO 
LABEL OF DA SUBSEQUENT ENTRY. 



FIELDA 



FIELDB 



FIELDC 



FIELDD 



FIELDE 



DA 

ZA1 

DA 

ZA1 
DA 

ZA1 
DA 

ZA1 

DA 

ZA1 



1 

12.25 

FIELDA 

2 

12.25 
FIELDB 

2.RDW 



12.25 
FIELDC 



2.RDW.0+INDEXWORU 



12.25 
FIELDD 



2..0+X15 

12.25 

FIELDE 



+0003250327 
29 0326 

00001 0328 +1300290326 

+0003290334 
29 0330 

00002 0335- +1300290330 

+0003360343 

0336 +0003380340 

0337 -0003410343 
29 0339 

00003 0344 +1300290339 

+0003450352 

0345 +0003470349 

0346 -0003500352 
29 0348 

00004 0353 +1301290001 

+0003540359 
29 0355 

00005 0360 +1315290001 
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0330 



0336 
0337 
0339 



0345 
0346 
0001 



0001 



2. When a da header line contains a relative address and implicit indexing, 

( a ) a macro-instruction reference to the label of the da header line will cause 
the generation of coding which will affect or consider (as a maximum) 
the current record (as determined by the contents of the implicit index 
word at the time the instructions are executed ) . 

(b) a macro-instruction reference to the label of a subsequent entry will 
cause the generation of a coding which will affect or consider ( as a maxi- 
mum) the named field within the current record (as determined by the 
contents of the implicit index word at the time the instructions are 
executed). 

The generated instructions will include implicit indexing and references to the 
implicit index word wherever necessary. 

Input/output macro-instructions may indirectly affect a record by operating on 
the rdws defining that record; e.g., the putx macro affects records by interchang- 
ing rdws. When the other macro-instructions (i.e., those not concerned with in- 
put/output ) refer to the label of a da header line which specifies rdw generation, 
however, they will not operate on the rdws themselves. For example, when the 
zero macro is used in this way, it will not zero the rdws; it will zero out one com- 
plete record area. 

When input or output files are to be referred to by input/output macro-instruc- 
tions, the following considerations apply: 

1. Macro-instructions which are to operate on a record will reference the name 
of the file. This name must appear as the label of the da header line and as 
the operand of the dtf for that particular file. Depending on the method of 
generating rdws, this name may or may not be the same as the operand of the 
subsequent entry iordwlist in that same dtf. 

2. In the header line of the da referenced, n and rdw specification will be pre- 
pared according to the procedures described in the 7070 Data Processing Sys- 
tem Bulletin "ibm 7070 Input/Output Control System," form J28-6033-1. 

3. A relative address of will be specified in the da header line. 

4. Implicit indexing will be specified in the da header line. The name of the 
index word specified must be the same as the operand of the subsequent entry 
indxwrda in the appropriate dtf. 

When input or output files are to be referred to by the other Autocoder macro- 
instructions or by both the input/output and other macro-instructions, the fol- 
lowing considerations apply: 

1. If rdws are generated by the da header line, all macro-instructions can refer- 
ence the name of the file. If rdws are generated by a drdw, the name of the 
file cannot be referenced; however, the area which the drdw references may 
be used as an operand of any macro-instruction, where applicable. 

2. In the header line of the da referenced, n and rdw specification will be pre- 
pared according to the procedures described in the 7070 Data Processing 
System Bulletin "ibm 7070 Input/Output Control System," form J28-6033-1. 

3. A relative address of will be specified in the da header line. 

4. Implicit indexing will be specified in the da header line. The name of the 
index word specified must be the same as the operand of the subsequent 
entry indxwrda in the appropriate dtf. 
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When a da statement is used to define a work area, the following considerations 
will normally apply: 

1. n will be 1. 

2. rdw generation will be specified. 

3. Neither a relative address nor implicit indexing will be specified. 



Arrangement of Fields 



In general, the arrangement of fields defined by da subsequent entries is deter- 
mined by prior considerations, e.g., the record form and format. Thus, a tape 
record is usually arranged to take full advantage of the zero suppression of the 
ibm 7070/7074; i.e., numerical fields which most frequently contain leading 
zeros are each placed in the high-order positions of a word, but numerical fields 
which less frequently (or never) contain leading zeros are each placed in the 
low-order positions of a word. In the interests of tape capacity and speed, it is 
also desirable to hold the appearance(s) of the delta character to a minimum. 
In general, this means that all alphameric fields should appear together. 

Since imperative statements frequently alter the sign of a word to reflect the sign 
of the last field entered, the programmer should insure that fields which occupy 
the same storage word are to be associated with the same sign. If this is not the 
case, inconsistent results may occur. For example, if alpha information is entered 
into a word in which another field contains numerical data, the sign of the word 
may become alpha; the numerical information would then become alpha, pos- 
sibly consisting of invalid double-digit codes. 

When the format indicator F is used, the field must occupy one complete word; 
when the format indicator @F is used, the field must occupy two complete words. 

Within the considerations listed above, the use of macro-instructions allows the 
programmer extreme flexibility in arranging the fields within a record area. In 
fact, the use of macro-instructions permits the programmer to refer, with equal 
ease, to fields which overlap or bridge words and to fields which occupy all or 
part of a word. It should be noted, however, that the most efficient coding will 
result when the amount of word-bridging is held to a minimum. 



Additional Examples 



Additional examples of the use of the da statement in conjunction with other 
statements are included throughout the manual. 
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CODE 



Source Program Format 



code is a special type of declarative statement which may only appear as one of 
the subsequent entries under a da header line. It has the following uses: 

1. To name a field in which one or more code values may be present during the 
running of the object program. 

2. To name and define these code values which are the condensed representa- 
tions of various conditions, categories or classifications, etc. 

The primary use of code is in connection with the logic and decod macro-instruc- 
tions. By means of these macro-instructions, a code field may be interrogated for 
the presence or absence of a specific code value. Various switches may be set or 
branches may be made depending upon the decision. When code is used, inter- 
rogation may be made by referencing the symbolic name of the code value for 
the condition to be tested, rather than the code value itself, code symbolic 
names may not be referred to in symbolic machine instructions. 

The code entry is itself a header line, giving the position and format of the code 
field. Subsequent entries consist of the symbolic names of the conditions to be 
tested during the course of the program, each indented one space, with the ac- 
tual code value indicated for each condition. 

A code entry may be followed by subsequent fields of the da or by another code 
entry. If code is the last da entry, any other type of entry may follow. 

Code fields may not be more than ten numerical digits or five alphameric 
characters in length and must be wholly contained within one word of the record 
defined by the da. 



CODE Header Line 



The basic format of the code header line is as follows: 



Line 
3 S 


Label 

6 


13 


Operation 

16 20 


21 


25 


30 


OPERAND 

35 40 


,i 


0.1 , 


A.N.Y.L.A.B.E.L. 


CODE, 


2,0.. 


.2.9.A8 . 


x2. . , 




2 


— i — i — i — i i , i i i_ 


i i i i 


\ 

— , — i — i — i — i — i — i — i — i — i — ._. i i i i i i i , i i i , i 1 1 



A symbolic label must always be supplied for the code entry and the letters code 
must be written in the operation column. The operand includes field definition as 
in any other da subsequent entry, except that the area defined may not be more 
than a single storage word and it may not bridge words. 

Two types of format indicators (shown below) are allowed. The desired indi- 
cator is written immediately after the terminal digit position of the field definition. 

Code Format Indicators Meaning 



The field is to contain numerical data 
which is to be treated as an automatic- 
decimal number. 
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Code Format Indicators 



Meaning 



The format indicator may be followed 
by a decimal position indicator of the 
form "a.b" as described on page 43. In 
this case, however, the field size may 
not be greater than 10. 

@ The field is to contain the double-digit 

representation of alphameric characters. 
The field size defined must not exceed 
10 digits (5 characters); it must be 
evenly divisible by 2. The starting digit 
position must be an even number. 

If a format indicator does not appear immediately after the ending digit position 
in the code header line, the processor will consider the field to contain an auto- 
matic-decimal integer. 

Consider the following example: 



Line 

3 5 


Label 

6 


15 


Operation 

16 20 


21 


25 


30 


35 


OPERAND 

40 


45( 


0, 1 , 




DA . 


1 < 


2 


AN,Y,L A,BE,L, , 


C,0,D,E, 


20, 


,2,9,A,8,. 


,2, , , 








3 




■ i i i 





The code header line defines a field occupying the entire third word of the rec- 
ord area. At object program time, the field is to contain numerical data to be 
treated as an automatic-decimal number with 8 integer digits and 2 decimal 
digits. 

The following example defines a field which is to contain one alphameric char- 
acter. 



Line 



Label 



Operation 
J6 22 



LL 



-25. 



30 



OPERAND 
_35 40 



45 



I 



D,A, 



2 ll ,,,0,-r,l,N,D,E l X,W0,R,D, 



02 
3 



AN.Y.LA.BEL, 



C.O.D.E, 



1,4.. .1.5.6 



: : ::: : ::x 



CODE Subsequent Entries 



A symbolic label is always required for a code subsequent entry so that the code 
value may be referenced by name. For this entry, Autocoder requires that the 
label be indented exactly one space. Thus, the maximum size of this type of la- 
bel is nine characters. The operation column must be blank. 

The operand is used to define a code value which may appear in the field during 
the running of the object program. A code value may not exceed the length 
of the field as defined by the code header line; the maximum length, therefore, 
is 10 numerical digits or 5 alphameric characters. Each code value must also be 
consistent with the format indicator(s) which appear in the code header line. 

If the code header line specifies an automatic-decimal field, therefore, the operand 
of each code subsequent entry under that header line must contain a numerical 
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value. This value may be signed or unsigned. ( The sign, however, is superfluous; 
the digits will be considered absolute in sign. The sign of the word will not be 
tested or changed.) 

In the example below, the code header line defines a field which is to contain 
data to be treated as a one-digit automatic-decimal integer. Each subsequent 
entry, therefore, must define a one-digit numerical code value. 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND ( 

21 25 30 35 40 45/ 


1 , 


ANY LABEL 


DA, , , 


1 ? 


2 


COLOR, , 


CODE 




2 5.A 


1 






















3 


B.L.AC.K. 






. 
























4 


GR.E.E.N 






1 . 
























5 


,R,E,D 






5, . 
























6 


W.H.I T,E, , , 






6, , 
























7 


BLUE 






8, , 
























8 
















i i i 












,c 



In this example, color is the name of the defined field. In the source-language 
program, the field may be tested for the presence of a color such as black. The 
processor, however, will generate coding which will cause the object program 
to test for the presence of a "0." If the field is to be tested for the presence of 
green, the processor generates coding to test for a"l." Thus, the programmer may 
make reference by means of a macro-instruction to the condition or name of a 
code value and the processor will translate this into instructions which actually 
check for the presence of the code value itself. 

In the example below, class is the name of a field which is to contain a three- 
digit, automatic-decimal number. In this case, the number is to include two in- 
teger digits and one decimal digit. Each subsequent entry, therefore, must define 
a numerical code value containing the number of decimal digits specified 
by the code header line. This is done by inserting a decimal point at the proper 
position within the code value. The decimal point does not occupy a storage 
location; it merely indicates the treatment of the integer and decimal digits in 
the code value. 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND / 

21 25 30 35 40 45/ 


1 , 


A.R.EANAM.E, , 


DA , . 


i A 


2 


CLASS 






CO.D.E, 


1.0,1,. X 





3A 


2,. 


1 , , 










, c 


3 


A . , 








1,1.. .9. 


















,L 


4 


.B, , , 








1,0,., 9, 


















, , ,1 


5 


,C , , 








9. .,9, , 


















■ ~\ 


6 


D, , 








8.9, , 


















•< 


7 
























, , 


, 


A 



Although the code value must contain exactly the same number of decimal digits 
as defined in the code header line (in the above example, one decimal digit), 
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leading zeros may be omitted from the integer digits, as in the code values for 
C and D above. 

When code defines an alphameric field, the actual code values pertinent to the 
various conditions should be indicated in the operand by writing the @ charac- 
ter, followed by the alphameric characters which comprise the code value, fol- 
lowed by another @ character. The code value may not include the @ char- 
acter itself; the form @@@ or @A@B@C@ is thus prohibited. In addition, the 
record mark may not be used as a code value. Except for being restricted to one 
word, the operand of an alphameric code subsequent entry may be identical 
to that allowed for an alphameric literal. 

Consider the following example: 



Line 



Label 



Operation 
J6 20 



25 



30 



OPERAND 

35 40 



45 



0, I , 
2 



DA 



3,,,,,0,+.l,N,P,E,X,W0 



R D 



STATE. 



CODE 



14.,.1.9,@ 



_i i i i_ 



3 



A,L AB.AMA 



@A.L,A,@. 



4 



G E.O R.G I A 



t),G,A, <g 



5 



,F,L,0,R,l,D,A 



@,F,L,A,@, 



6 



If the field, state, is tested during the running of the object program and the 
contents at that time are "ala" the state will be considered to be Alabama; if the 
contents are "ga" the state will be considered to be Georgia; etc. If leading 
blanks appear, they may be omitted. Thus, if the values within the fields have 
been right-justified (rather than left-justified, as in the example above) the value 
for Georgia could have been written @ga@ rather than @ga @. 



Processing Techniques 



Since the order is irrelevant, code subsequent entries may appear in any sequence, 
provided that they follow a code header line. Only those code values which are 
to be tested need to be entered as a code subsequent entry, even when it is known 
that other data will appear in the field during the running of the object program. 

The label of a code header line may be freely referenced in exactly the same ways 
that any other da subsequent entry may be referenced; in each case the assigned 
location and the field control of its da position will be compiled in the address 
portion of the referencing instruction. The data that will be operated on will be 
the data in the code field at that particular time in the running of the object pro- 
gram; a code subsequent entry will not cause a constant to be assigned to that 
area of storage. The names of the code values, which must be unique symbols 
and follow the usual rules for symbols, may not be referenced by symbolic ma- 
chine instructions. 



Additional Examples 



Additional examples of the use of the code statement in conjunction with the 
logic and decod macro-instructions appear on pages 173 and 177. 
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DC — Define Constant 



The declarative statement, dc, may be used to enter numerical, alphameric and 
address constants (adcons) into the object program, and to assign names to 
constants for ease of reference. Like the da statement, the dc statement consists 
of a header line and one or more subsequent entries with blank operation col- 
umns. Unlike the da statement, a dc statement actually causes specified data 
to be compiled as a part of the object program. The dc header line causes the 
processor to assign storage locations to the constants which are defined by sub- 
sequent entries. 



Source Program Format 
DC Header Line 



The formats for a dc header line are as follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 30 


OPERAND / 

21 25 30 35 40 45( 


1 , 


ANYL.A.BE.L, 


DC, , 


+ R.D.W J 


2 


ANYL A.BEL 


D,C, , 


-R.D.W , . . \ 


3 


ANY.LA.B.EL, 


DC, , 


RD.W, J 


4 


A.N.Y.L, A.BEL , 


DC, , , 


s 


5 


ii i i i i i i 


. . i i 





anylabel may be any symbolic label or it may be omitted. It may not be an 
actual address. The entries dc and rdw must be written exactly as shown. 

If plus or minus rdw is written in the operand, the processor will generate a 
single edw with the indicated sign. If no sign is indicated, a minus rdw will be 
generated. This rdw, which will define the area containing all of the constants 
included in the subsequent entries, will be stored in the location immediately 
preceding the constant area. If present, the label of the dc header line may also 
be used to refer to the rdw. If the operand is blank, no rdw will be generated 
and the dc label will refer to the first word of the constant area. 



DC Subsequent Entries 



Four principal classes of constants may be defined in a dc subsequent entry: 
automatic-decimal numbers, floating-decimal numbers, address constants, and 
alphameric constants. These constants may be entered in either of two ways. 
(1) They may be entered separately, with individual symbolic names assigned 
to each, or ( 2 ) several constants of the same type may be defined by one subse- 
quent entry, with one symbolic name assigned to the first location of the series. 

Each constant may be entered in a separate core storage word or, within the 
limitations described below, several constants may be "packed" into the same 
word by means of field definers. Each subsequent entry may appear with or 
without a symbolic label. 

In all examples of location assignments, it is assumed that the Autocoder assign- 
ment counter was at 1000 when the dc header line was encountered. 
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Automatic-Decimal Constants. This type of constant, used to enter signed 
numbers when the constant is to be referred to by a macro-instruction, may 
be from one to twenty digits in length. A decimal point may be included to 
indicate the magnitude of the number according to ordinary usage; it is neither 
stored in the constant nor saved with it, but merely serves as an indicator to 
Autocoder of the desired decimal-point placement. If the decimal point falls 
to the right of the right-most digit of the number, it may be omitted; the number 
will be considered an integer or an ordinary numerical constant. 

If the constant is to be referred to by a symbolic machine instruction, however, 
it may neither exceed ten digits in length nor bridge words. The decimal point 
will be ignored; a symbolic machine instruction will treat the constant as an 
integer. 

When used as a dc subsequent entry, automatic-decimal numbers may be individ- 
ually named (with or without field definition) or written in a series, with the 
first number named. 

individual names. The following example illustrates how automatic-decimal 
constants may be entered with individual symbolic names: 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND f 

21 25 30 35 40 45j 


1 , 




DC, , 




2 


CONST, AN.T.l, 




+ 1,2,34,5, .6,7,8,9,0 , , , ? 


3 


CONSTANT 2 




-1..2.3 S. 


4 


CO.N.ST AN.T3, 




-4,1,2,6.7,9,3,6,5,4,1,. ,3,9.2,1, 7 \ 


5 


CO N.S.T.AN.T 4, 




-2 / 


6 




, l i 


1,1 i , i i i \ 



The Autocoder processor would make the following actual location assignments: 
Symbol Field Definition Location Contents 



constant! 


0,9 


1000 


+1234567890 


constant2 


0,9 


1001 


-0000000123 


constant3 


0,9 


1002 


-0000412679 




0,9 


1003 


-3654139217 


constant4 


0,9 


1004 


-0000000002 



Note that each constant is right-justified in a separate storage word (two words 
in the case of a constant in excess of 10 digits). Reference to constant3 by a 
symbolic machine instruction, therefore, would result in the consideration of 
digit positions 0, 9 of location 1002 only. 

The same constants could be packed into fewer words by using field definition 
in the subsequent entries, as in the following example: 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND / 

21 25 30 35 40 4? 


1 , 




D,C, 




2 


C.O.NS T.AN.Tl, 




+ 1,2,3,4,5,6,7,8,9,0,(,0,.,9,) A 


3 


CO.N.S T.A.NT2, 




-1... 2,3.(0. .2.) ! 


4 


CON.S.T ANT.3, 




-4,1,2,6,7,9, 3,6, 5,4,1 ,.,3, 9.2,1,7, (, 3., JL,8,), j 


5 


C,0.N,S,T,A,N,T,4, 




-,2.(,9.) { 


6 


, , i,i,,ii 


, i i 


. . . i^\ 
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Actual location assignments would then be as follows: 



Symbol 



Field Definition Location 



Contents 



constant! 
constant2 
constant3 

constant4 



0,9 
0,2 
3,9 
0,8 
9,9 



1000 
1001 

1002 



+1234567890 
-2234126793 

-6541392172 



When field definition is used with an automatic-decimal constant, it must define 
not less than the number of digits in the number and not more than 20 digits. 
Since the left field definition may be no greater than 9, the right field definition 
may be no greater than 28. 

Constants written with field definition will be packed into words according to 
the following rules: 

1. A change in sign will start a new word. 

2. Field definition which would, in effect, result in overlapping in the same 
word will force the constant into a new word. 



series. The operand of a dc subsequent entry may include a series of signed 
automatic-decimal numbers, each without field control. All of the automatic- 
decimal numbers must share the same attributes, i.e., if the first number is writ- 
ten with a decimal point, they must all be written with a decimal point; if the 
first number has two decimal places, all must have two decimal places. (The 
number of integer positions, however, need not be the same. ) 

Since field definition is not allowed, each constant will be right-justified in one 
or two locations, depending on the length of the largest constant. Automatic- 
decimal constants 11-20 digits in length, therefore, should not be intermingled 
with constants 1-10 digits in length in the same subsequent entry since every 
constant would be assigned two locations. 

The following entry will cause the indicated constants to be right-justified in 
separate words. ( Note that commas are not used as separators. ) 



Line 
3 5 


Label 

6 


13 


Operation 
16 20 


21 25 


30 


OPERAND 

35 40 45 


Basil 
50/ 


1 , 


CON AR.EA, , , 


D,C, , . 




2 






+ 1.5,.,2 1 +,3,. 


,8,+,9, 


,7,-2,., 1,-30.., 4,+ .l,6 1 5,4, 


•1, , 


3 






i . i i..i_. j i I I 1 1 1 i i 1 1 ■ 1 1—1 1 1 1 1 1 1 1 1 1 Li 



Autocoder will make the following assignments: 

Symbol Field Definition Location 



Contents 



conarea 



0,9 



1000 


+0000000152 


1001 


+0000000038 


1002 


+0000000097 


1003 


-0000000021 


1004 


-0000000304 


1005 


4-0000016541 
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Since the operand of the dc header line is blank, no edw is generated. There- 
fore, when a symbolic machine instruction references the label conaeea, it will 
refer to the first constant, +0000000152; conarea+1 will refer to +0000000038; 
conaeea (8, 9) +2 will refer to +97; etc. 

The following example illustrates the generation of a plus edw to be associated 
with the constant area. Note also the use of integer constants. 



Line 

3 5 


Label 
6 15 


Operation 
16 20 


OPERAND f 

21 25 30 35 40 45J 


1 , 


CON A.R.E.A. , 


D.C, 


+ R,D,W ,C 


2 






+ 1 1 5 1 2,+ 1 3,8.+ 1 9,7-,2 1 1 1 -3,0,4 1 +,1.6,5,4,1. , J 


3 


, i ,,iii ... — i — 


1 1 1 . , 


A 



Autocoder would make the following assignments: 



Symbol 


Field Definition 


Location 


Contents 


CONAEEA 


0,9 


1000 


+0010011006 






1001 


+0000000152 






1002 


+0000000038 






1003 


+0000000097 






1004 


-0000000021 






1005 


-0000000304 






1006 


+0000016541 



The label conaeea would now refer to the edw defining the constant area; 
conaeea ( 7, 9) +1 will refer to the first constant, +152; conaeea+2 will refer to 
+0000000038; etc. 

Floating-Decimal Numbers. Floating-decimal numbers may be entered in the 
operand of a dc subsequent entry with the format 

±nF±m 

where ±n is a decimal or integer number of not more than eight digits and ±m 
is a one- or two-digit exponent. If the sign preceding m is omitted, m is con- 
sidered to be positive. A decimal point may be used to indicate implied posi- 
tioning of the decimal point in the number ±n. If no decimal point appears, the 
number will be considered an integer. The value of the number is ±n multi- 
plied by 10 ±m . Thus, -.98765432F+1 would represent the number -. 98765432 X 10 K 
The exponent m may be omitted if equal to 0. 

The Autocoder processor will consider the signs, the value of n, and the value 
of m of the entry in the format, ±nF±m. The processor will then generate a 
standard 7070 normalized floating-decimal word, which is of the form 

±MMNNNNNNNN 

where the sign is the sign of n. The number, ±nF±m, is normalized by plac- 
ing n between +1 and -1 and by adjusting the value of m accordingly. The 
value of mm equals 50 plus or minus the adjusted value of m and the value of 
nnnnnnnn is the normalized value of n. For example, the number — 1860.723 XlO 3 
would be represented by -1860.723F+3. Autocoder converts this number to 
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the standard 7070 normalized floating-decimal format by normalizing the num- 
ber to -.1860723F+7 and converting it to the form -571860723. 

Since a floating-decimal number will always occupy ten digit positions and it 
may not bridge words, field definition is not allowed. 

individual names. The following examples illustrate the use of individually 
named constants: 



Line 

3 5 


Label 

6 15 


Operation 
16 20 


OPERAND 

21 25 30 35 40 45 


1 , 




D,C, , 




2 


FLT,NU.MB,E,R1 








-3...4.F 














( 


3 


F.L.T.N.U.M.B.E.R.2 








+ 3.4,. ,5.6.7, 8,9, 3.F- 


2 












\ 


04 


F.L.T.N.U.MBER 3 








-3,l,.,9.2,F,+,7, , , 














| ) 


5 


F.L.T.N.U.MB.E.R^ 








-.2.9,5.6.7... 1,F- 3. 














: ( 


6 


F.L.T.N.U.MB.E.RS 








+,i,2,5,4.6,F,t,l,5. , 














: ( 


7 


i i t i i i i i i 








i i ] i i . i i , i i 

















Assignment would be made as follows : 



Symbol 


Field Definition 


Location 


Contents 


fltnumberI 


0,9 


1000 


-5134000000 


fltnumber2 


0,9 


1001 


+5034567893 


FLTNUMBEB.3 


0,9 


1002 


-5931920000 


fltnumber4 


0,9 


1003 


-5229567100 


fltnumber5 


0,9 


1004 


+7012546000 



series. The operands of dc subsequent entries may include a series of floating- 
decimal numbers, each written in the ±nF±m format described above. Unlike 
a series of automatic-decimal constants, the floating-decimal numbers must be 
separated by commas and the decimal point need not appear in the same place 
in each number. 

The floating-decimal numbers used in the previous example could also have 
been written as follows: 



Line 



02 
3 



Label 



Operation 
l'6 20 



F . LJ . C . O . N , , 



DC. 



31. 



30 



OPERAh 
-15 12_ 



-3,.,4,F..,+,3,4,..5,6 l 7,8.9.3F,-,2, . l ,+,l l 2.5.4.6,F,+,1.5. 



Autocoder - 
_§5 Z2_ 



The assigned locations would be the same as for the previous example with the 
exception that the single label fltcon would be used to refer to the first con- 
stant at 1000, fltcon+1 would refer to the second, etc. 

Address Constants (Adcons). An adcon is used to produce an address con- 
stant which is the numerical representation (usually 4 digits) of the location 
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to which a given symbolic label has been assigned. As noted in a previous 
section, an adcon may be used as a literal or as a dc subsequent entry. When 
used as either, the form is ± symbol. When used as a dc subsequent entry, 
adcons may be individually named (with or without field definition) or written 
in a series m which the first adcon may be named. 

individual names. Adcons may be named individually; they may appear with 
or without field definition. Adcons written without field definition will be right- 
justified in separate words. Adcons written with field definition will be packed 
into words according to the following rules: 

1. A change in sign will start a new word. 

2. Field definition which would, in effect, result in overlapping in the same word 
will force the adcon into a new word. 

3. If less than four digit positions are defined, the low-order digit(s) of the 
address will appear in the constant. 

4. Adcons should not bridge words. 
Consider the following example: 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND 

21 25 30 35 40 


45 \ 


o,', 




D,C. . 






0,2. 


A.D.C.ON.l . , , 




-A.D,D,R.E.S,S,1 






3 


A.DC0N.2. . . 




+AD,D.R.E.S.S.2.(.a.,l.). 






0,4 


A.D.C,0,N.3, . . 


i i i i 


+,A.D.D.R.E.S.S,3.(.2. T .5.V 






5 


A,D,C,0,N.4. . , . 




-,A,D.D.R.E.S.S,4,(.6,..9.}. 






6 


— i — i — i_i i_i i i i 


— i_i i i 


1 1 1 1 L.i.i. 1 i l i i J i 







Autocoder would first assign locations to addressI, address2, address3, and 
address4. Assuming that these locations were 1125, 0025, 3542, and 6453, respec- 
tively, Autocoder would then assemble the adcons as follows: 



Symbol 



Field Definition Location 



Contents 



adconI 
adcon2 
adcon3 
adcon4 



0,9 
0,1 
2,5 
6,9 



1000 
1001 
1002 



-0000001125 
+2535420000 
-0000006453 



series. Several adcons may be written sequentially in a single dc subsequent 
entry as shown below. Field definition and address adjustment are not allowed; 
commas are not used between adcons. 



Line 

H 51 



Label 



Operation 
J6 22 



ZL 



_2S_ 



30 



OPERAND 

Ji 40 



0,1 



-I I I I 1_ 



D,C, 



0,2 
3 



A.D.CO.N.S 



j i , , 



• l A,D,D,R 1 l,+,A,D l D,R,2,+,A,D,D l R l 3,-A.D,D,R,4. .1 
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Assuming that the labels have been assigned locations as in the previous exam- 
ample, Autocoder would assemble the adcons as follows : 



Symbol 


Field Definition 


Location 


Contents 


ADCONS 


0,9 


1000 


-0000001125 






1001 


+0000000025 






1002 


+0000003542 






1003 


-0000006453 



The first adcon could be referred to by the label adcons; the second by adcons+1; 
etc. 

Alphameric Constants. Alphameric information may be included in a constant 
area by using a dc subsequent entry similar to those in the following example: 



Line 
3 5 


Label 

6 IS 


Operation 

16 20 


OPERAND B ( 

21 25 30 35 40 45 J 


O, 1 , 




DC 




2 


AN 


Y 


LA.BE 


L, , 








@i 2345® 












3 
















8. C.O.N.S.TA.N.T. 


A 


LPH.AMER.I 


C 


I.NF.O, 


8, ( 


O 4 
















@A,@B,@C,(5) , . . 










■) 


5 
















@AB,C@.R 










J 


6 
















@@R 










•) 


O 7 

1 L 


■ 




l 1 1 


i i 








,11111 i ,1 I I 1 




t l 1 1 1 1 1 




i i i i i 


, 



anylabel may be any symbolic label, or it may be omitted. Each operand must 
begin and end with the @ character. All characters between the initial @ char- 
acter and the final @ character will be converted to double-digit form and assem- 
bled successively, beginning in the high-order positions of each location assigned. 
The sign of each word used to contain the characters will be alpha. 

Packing of sequentially listed constants is automatic; it continues from line to 
line. If packing is to be avoided, therefore, blanks must be inserted within con- 
stants to fill out each storage word. If the processor finds that the total number 
of characters assigned through the end of a dc subsequent entry is not a multi- 
ple of five and the next entry is not an alphameric constant, blanks ( double-digit 
00) will be assembled in the low-order positions of the last word assigned. 

The constant may contain the digits through 9, the characters of the alphabet, 
blanks, and the special characters 

. n &$*-/,%# @ 

Note that the @ character may be included at any point in a constant field. It 
should also be noted that the processor will scan the entire operand for the last 
@ character. Therefore, this character must not appear in the remarks portion 
of the card if the constant field is to be properly defined. 

A record mark may be defined by following the terminal @ with the character 
R, as explained below. 

If symbolic machine instructions refer to the label of a dc header line which 
specifies the generation of an bdw, the assembled instruction will address the 
bdw. If, however, symbolic machine instructions refer to the label of a dc header 
line that does not specify bdw generation, or to the label of a dc subsequent 
entry defining an alphameric constant, they will act only on the first five charac- 
ters of the area or the field, respectively. When defined for use by symbolic 
machine instructions, therefore, each subsequent entry should contain a maxi- 
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mum of five characters. A macro-instruction, however, may properly refer to the 
label of the header line or any subsequent entry and act on the entire constant 
area ( exclusive of the edw, if any ) or field, regardless of length. 

An alphameric constant may be used to define a message, as in the following 
example: 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND 

21 25 30 35 40 


45 ) 


1 , 


E.O.FMS.G, , , . 


D,C. . , 


-R.D.w 




2 






©R.E.M.O.V.E, .TAP.E, ,0,N, ,U,N,I J. ,0,0. 


ft I 


3 




■ i i < 


@A.N.D. .M.O.U.N.T. ,N.E XT. @ 


') 


4 


i l 1 l 1 i i i 1 


' ' ' i 


— i — i — i — i — i — i — i.....±_.i i i i i i ■ i i i , i \ 



Autocoder will make the following assignments: 
Symbol Field Definition Location 



EOFMSG 



0,9 



Contents 



1000 


-0010011008 


1001 


R E M O V 


1002 


E TAP 


1003 


E ON 


1004 


UNIT 


1005 


AN 


1006 


D M O U 


1007 


NT N E 


1008 


X T 



Note that the label eofmsg refers to the kdw defining the constant area. 

In many instances, it may be desirable to name a portion of a long alphameric 
constant so that modification of the constant, such as entering variable tape ad- 
dresses, codes, etc., may be readily accomplished. Thus, the constant in the 
previous example could have been defined as follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45J 


1 , 


EOFMS.G, , , , 


DC, , 


-R.D.W, , , A 


2 




, i i , 


g.R.E.M.O.V.E, T.A.P.E, ON, UNI T, ,@, . , \ 


3 


TA.PEN.O, 




§ .0.0.@ J 


4 






g ,AN,D. .M.0.U.N.T, ,N,E,X.T, ,@ ^ 


5 




, . i i 
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Autocoder will make the following assignments: 
Symbol Field Definition Location 



Contents 



EOFMSG 



0,9 



TAPENO 



0,3 



1000 

1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 



-001001100* 
R E M O V 

T 

O 

I 



E 

E 

U N 




D 

N 
X 



A 

N 

T 

A 

M O U 

N E 



N 



Note that Autocoder will assign the proper field definition to each symbolic name 
given so that reference to tapeno will result in appropriate field control. If a 
field is to be referred to by symbolic machine instructions, however, the pro- 
grammer is responsible for insuring that any named portion of an alphameric 
constant does not bridge words. 

The following are examples of the use of the @ character within a constant field: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


21 25 


30 


OPERAND 

35 40 


45i 


1 , 




DC. . . 




2 


CON.ST.ANTl, 




@.A@.B.@.C@ \ 


3 


CO, N.ST. ANT 2 




@,@@ . , , . . , ....... C 


4 


. i i i i i i j . i — 


— i— _i_ — i i_ 


i i i i i i i i i — i — i — i — i — i — i — i — i — i — i — i — i — i — i — i — A. 



Autocoder will make the following assignments: 

Symbol Field Definition Location 



Contents 



constant! 
constant2 



0,9 
0,1 



1000 
1001 



@ B @ C 
b b b b 



record mark. Since the record mark may not be entered through the ibm 7500 
Card Reader, special provision is made for generating it in an alphameric con- 
stant by entering the letter R immediately following the terminal @ character. 

If the last character generated by the current alphameric constant does not com- 
plete a word, the record mark will be assembled in positions 8 and 9 of that 
word, and any intervening positions will contain the double-digit representation 
of blanks. If the word is complete, the record mark will be assembled in posi- 
tions 8 and 9 of the next word and positions through 7 will contain the double- 
digit representation of blanks. Consider the following example: 
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Line 

3 S 


Label 

6 13 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 ) 


1 , 




D,C, . , 


) 


2 


C.O.N, SJAN.T.l, 




@AB.C.@ ^ 


3 


CON S.T.AN.T.2. 




@,D.E.F.G.@,R ^ 


4 


CO.N,S.T.A.N.T3, 




@.H.I.J.K.L.@,R } 


5 


,i iiii _i — i — i — 


, , , , 


i i i — i — i — i — i — i — i — i — i — i — i — i — ' — i — i — i — i — ^ 



Autocoder would make the following assignments: 
Symbol Field Definition Location 



Contents 



constantI 
constant2 


0,5 ) 
6,9 \ 


1000 


ABODE 






1001 


F G b b 4= 


constant3 




1002 
1003 


H I J K L 
b b b b 4= 



(Note the packing of the first two characters of constant2 into the word which 
holds constantI.) 

The following coding shows how a record mark may be entered and named so 
that field definers and/or address adjustment are not necessary when operating 
on it: 



Line 

3 S 


Label 

6 15 


Operation 
16 20 


OPERAND l 

21 25 30 35 40 45 I 


0,1 , 




DC, , , 


/ 


CONSTANTI 




(8 ABCD E@ ,.....(> 


3 


RECMARK1 




(3,(8 R / 


4 


C0N.S.T.ANT2, 




(8,F,G,@ , i_^ 


5 


R.E.C.MAR.K.2. , 




(3@.R 1--L-/ 


6 

. i .. 


i ' j — i— 


, , i i 


ill _i 1 1 1 1 ! 1 1 1 1 1 ' ' ' ' ' 



Additional Examples 



Autocoder will make the following assignments: 

Symbol Field Definition Location 



Contents 



constantI 
eecmaekI 


0,9 

8,9 


1000 
1001 


A 
b 


B 
b 


C 

b 


D 
b 


E 

4= 


constant2 
eecmaek2 


0,3 ) 
8,9 ( 


1002 


F 


G 


b 


b 


* 



The first record mark may now be referred to by the label eecmaekI; the second 

by BECMABK2. 

The coding on the following page is- furnished to illustrate various operands 
which may occur in a dc statement. Note that while various types of constants 
may be generated in the same dc area, they may not be mixed in the same sub- 
sequent entry. 
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Line 


lob* 




Operat 
516 




OPERAND 




R . 








U 56 1 


20 21 25 30 35 40 45 50 SS 


60 1 


0,1, A.N.Yl 


-,A,B 


E,L, , 


D,C. . 


■ +RD.W 






( 


0,2 , , , 






, , i 


, +,2 














\ 


3 






, , , 


, -1.2.3,. . 4 


















4 








, t,l..,2,3.4.{,0...3.), . . , 


















0,5, , , , 








, -r.5.6,..7.8.9.(.4,..8.). , . 


















6 






, , , 


. -,..1.(,9.) 


















07 






D.C. , 


, -R.D.W, 


















06 








, +,1.7,.,2.-,2,0,0,..l-.l,. 7 


















09 








, -5...7.F 


















1 ,0, . ,. , 






, . j 


, +,l,9,2,..7.F,-2. . . , . , 


















1 1 








, -,i,3.F,+.8...+.1.9...7,6.5,F 


+,3,, 


-1.2. 


.5.F.-.2. 












1,2, , , , 






. , , 


, +,A,D,D,R,E,S,S,1 


















1,3, , , , 






o,c, , 


■ RD.w. 
















} 


1,4, , , , 






I 1 I 


, -,A,t>.D,R.E.S 1 S,2,(.2,,.5.) l 
















J 


1,5, , , , 






1 1 , 


, -,A,D,D.R.E,S,S,3,(.6,,,9,). 


















1 6 






. , , 


. -,A,D,D,R.E,S.S,4,+.A,D.D.R.E 


S,S,5 


-A.D.C 


),R,E,S.S6 










1 


1,7, 






1 1 1 


, ©,1,2.3,4.5.6.7,8.9.®, , , , 


















1 8 






D,C, , 


, 














1 ' 




1 9 








, &A.&R 
















1 \ 


2,0, 






i 1 i 


, @,B,L,A,N.K,S, .A.N.D, ,S,P.E. 


CI ,A 


L, ,C,H 


,A,R,A,C,T 


E,R,S, .,) 


+ $ 


*■- /, 


r jiaial 


2 1 


, , 






, @,@R , 


















2,2, 


i • 




.i;i 


' ' ' ' 1 ' ' ' ' ' l 1 ' ■ : , | 








■ , , , 
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DUNE— Define Line 



The dline statement and subsequent entries provide the programmer with a 
convenient means of specifying: 

1. The layout of a print-line area. 

2. The editing of fields to be inserted in that print-line area. 

Various formats used in the subsequent entries provide the ability to define 
fields in which the following information may appear: 

Constant data which is always to be included in the print line. 

Alphameric data which is to be inserted by the object program. 

Data edited to floating-decimal print format which is to be inserted by the 
object program. 

4. Data edited to numerical print format which is to be inserted by the object 
program. 

Several print-line formats are usually required for the preparation of a single 
report, e.g., a heading line, a transaction line, a total line, etc. These lines may 
be defined by means of separate dline header lines, each followed by its own 
subsequent entries. 

The dline header lines set up and name the print areas; the subsequent entries 
name the printing positions to be used, define the characteristics of the fields, 
and cause the generation of constants which are to appear in the print area. The 
use of dline, therefore, results in the establishment of an output print image in 
core storage in which two core storage digit positions are reserved for each print 
position included. This area may initially include constant information specified 
by the programmer, e.g., record marks, captions, etc. Fields to be inserted by 
the -object program will normally be moved into the image by an edmov state- 
ment. This macro-instruction will perform the necessary editing, insert decimal 
points and commas, convert data into double-digit form, etc. It is also possible 
to insert unedited information by means of the move macro-instruction. 



Source Program Format 
DLINE Header Line 



The basic format for the dline header line is as follows: 



Line 



_5§_ 



Label 



Operation 



_23_ 



30 



OPERAND 
_25 40 



-IS. 



0,1 



A,N,Y,L,A.B,E,L. 



P.L.I.N.E 



0,2 



_i i i i i i i i ■ ' 



DLINE Subsequent Entries 



anylabel is any symbolic label; it should not be omitted. It may not be specified 
as the operand of a dtf header line, dline must be written exactly as shown. 
The operand must be blank except for remarks. 

The header line must be followed by one or more subsequent entries, as in the 
example on the following page. 
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Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45) 


1 , 


LIN E.N.AM.E , 


DLI NE 




2 












1 0,0,1,0, T,A,L@ 




1 
















3 














i,8,@,i@. , , . 




















4 


G.RO.SS.AMT , 












1 1 9 1 X,, 1 X.X,X,.Z 


z,) 


D,R 




c 


R 














5 


CHECK.AMT 












60,$ 1 X,,,XXZ,. 


zz 


>,» 


C 


















6 


I.TEMN.AME , 












8,0,,, 9,4, , , , 
























7 


F.LVAR 




































8 














1,2,0,@,@.R, , , 
























9 














i i i i i i i i 

























The dline entry and the subsequent entries, other than those which define con- 
stant fields, must be labeled. The operand of each subsequent entry must begin 
with a number which indicates the print position for the left-most character of 
the field. Thus, the word "total" in the example above would appear in print 
positions 10 through 14, the dollar sign on line 03 would appear in print position 
18, etc. Print position may not be specified. 

The processor will issue a warning message if a print position beyond 135 is 
named or included in a dline area; however, the line may be of any desired 
length. 

Descriptions and formats follow for each of the subsequent entries used to define 
the various types of data fields that may appear in a dline. 

Constant Data. Constant information may be included in a dline area by using 
subsequent entries similar to those in the following examples: 



Line 
3 5 


Label 
6 i: 


Operation 

>I6 20 


OPERAND ( 

21 25 30 35 40 45/ 


i , 


LINEN.AME, 


D.L.I NE 


; 


2 


ANY, LA 


BEL, , 






7@,C.0,N.S,T,A,N,T. 1 


N,F,0.R,M,AT | 


0,N,@, , ,\ 


3 










30.@, BLANKS. A 


RE .1 .N.C.L.U 


D,E,D ,@. 


4 










i.o,o,@,i@ 


i i i i i i i 


■ i i i ( 


5 










±.0.5;@,@.@ 


i i i i i i i 


i i i i i/ 


6 










L0,9,@,A.@,B,@,C@.D I @ 


i > i i j i , 


i i i i i) 


7 




i i i i 




■ 


i i i i i i i — i — i — i — i — 


> 


.,,,.( 



A subsequent entry of this type may be written with a symbolic label, as in line 
02 above. However, unlike the other types of fields which may be defined by 
subsequent entries, a constant field may appear without a label. 

The operand must begin with the number of the print position for the left-most 
character in the field, immediately followed by the @ character. The @ charac- 
ter indicates that all following characters, up to ( but not including ) the final @ 
character, are to appear in the print area. The constant may contain numbers, 
characters of the alphabet, blanks, and any special characters (other than the 
record mark) acceptable to the input device used. 
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Note that the @ character may be included at any point in a constant field. Thus, 
line 05 would cause a single @ character to print in position 105 and line 06 
would cause the following to print in positions 109-115: 

A@B@C@D 

A record mark may be entered by following the final @ with an "R" as shown in 
the following example: 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND t 

21 25 30 35 40 45 ( 


1 , 


LI NEN.AME , 


D.L.I N E 


( 


2 






±@,A,B,C,@,R t \ 


3 






15.@.A,@.R ( 


4 






1,1,7,@,@.R ,( 


5 


1 1 1 1 1 1 1 ! 


i i i i 


{ 



The record mark will be positioned according to the following rules: 

1. When constant information appears between the initial and final @ charac- 
ter, the record mark will be placed in the next available print position ending 
in "0" or "5," with blanks inserted in the intervening print positions. The entry 
in line 02 above would cause a blank to appear in print position 4 and a rec- 
ord mark to appear in print position 5. The entry in line 03 above would cause 
blanks to appear in print positions 16 through 19 and a record mark to ap- 
pear in print position 20. 

2. The appearance of @@R will cause a single record mark to appear in the 
print position named. The entry in line 04 above would cause a record mark 
to appear in print position 117. 

Constant fields, unlike the other fields which may be specified, will be initially 
loaded with the information specified. No provision is made for regenerating this 
information during the running of the program; if the object program includes 
coding to alter these constants, it must also include any coding necessary to re- 
store them. Print positions for constant fields must appear in ascending sequence. 

Alphameric Data Field. When data is to be inserted into an alphameric field 
in the print line, the field may be indicated by using subsequent entries similar 
to those in the following example: 



Line 
3 3 


Label 
6 15 


Operation 
16 20 


OPERAND / 

21 25 30 35 40 45 \ 


O 1 , 


LINEN A ME, 


D.L.I NE 


J 


2 


ANY L A.BE.L1, 






3 


ANY LA B.E.L.2. 




4 .5 , . V 


4 


AN.YLA.BEL3 




2,1,., 1,0.0 .,,..,, , ^) 


5 


, i i.iiiii 


i i , 


(, 



Any symbolic label may be used with an entry of this type; it should not be omit- 
ted, however. The operand must begin with the number of the print position for 
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the first or left-most character of the field. If more than one print position is to 
be included in the field, the first number must be followed immediately by a 
comma and the number of the print position for the last or right-most character 
in the field as in lines 03 and 04 above. 

The object program will usually insert unedited alphameric data into a dline 
field of this type by means of a move macro-instruction. If numerical data is to 
be edited to alphameric form, however, the edmov macro-instruction may be used. 
It is also possible to use symbolic machine instructions if the programmer is care- 
ful to consider word boundaries. 

Data Edited To Floating-Decimal Print Format. When the object program uses 
the edmov macro-instruction to cause data to appear in the print area, edited 
to floating-decimal print format, the field in which the number is to appear 
must be defined by means of a subsequent entry under a dline statement. An 
entry of this type would be written as follows: 



Line 

I? 51 



Label 



Operation 
16 20 



21 



25 



30 



OPERAND 

35 40 



0,1 , 
2 



L.I NE NAME, 



D ,L,I NE 



A,N.Y,L,A.BE,L,1, 



1.3.F, , ■ , 



03 
4 



ANY L ABEL 2. 



l.O.l.F. ■ , 



_l I I I L_ 



Any symbolic label may be used with an entry of this type; the label should not 
be omitted, however. The operand consists of the number of the print position 
for the left-most character, followed immediately by the symbol F. A field 
of this type requires a total of thirteen print positions. 

Floating-decimal numbers will be edited to the printing notation, 

±MM±.NNNNNNNN 

where ±MM is a two-digit exponent and ±.NNNNNNNN is a normal, eight-digit 
number (see page 57). The value of the number is ±.NNNNNNNN multiplied 
by 10 ±MM . For example, @ 9591999897® 9695949372 (which in single-digit form 
would be -5198765432) will be printed as +01-.98765432 representing the num- 
ber -.98765432 X 10 1 . 

Data Edited To Numerical Print Format. The combined use of dline and 
the edmov macro-instruction will provide a convenient way to do extensive 
editing of data to a numerical print format. This editing may include the 
insertion of the comma and decimal characters, the retention or elimination 
of leading zeros and commas, and the "floating" of a dollar sign. In addition, 
explanatory characters may be printed to identify plus or minus numbers. 

A field of this type may be indicated by using subsequent entries similar to those 
in the following example: 
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Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND B J 

21 25 30 35 40 45 5<1 


1 . 


LI NEN.AME 


D.L.I ,NE 


? 


2 


ANYL A.BEL1 






1 l l X lll X l X > X l . l Z,Zi ( 


3 


ANY L A.B.E L2 






19$,X.X.X. XXX. XX C 


4 


ANYLA.BEL3 






3 0,$ 1 X 1 X,,,XX 1 Z I . 1 ZZ,) PLUS.MI.N.U.S 1 


5 


ANY LABEL 4 






45$ZZ.Z.,Z Z).PL,U,S J 


6 


ANYL A.BEL5, 






5 6,$,X,X,X ,,X,X X., XXX, .XX X.Z.Z), Ml ,N,U,S. \ 


7 


ANYL A.BEL6, 






8 1 0,$,X 1 X 1 X,, 1 X I XX 1 .X,X,X ..XXX) P.L.U.S.M.INUS,^ 


8 






, 


i i i i ■ . i i i ■ i i i i i , ■ i i i i i i i i \ 



Any symbolic label may be used with an entry of this type; it should not be omit- 
ted, however. The operand must begin with the number of the print position for 
the first or leftmost character of the field. The rest of the operand is used to 
specify the desired format of the edited field, and (optionally) to specify the ex- 
planatory characters which are to identify plus or minus amounts. 

Reference to a field of this type by an edmov macro-instruction will cause the 
generation of instructions which edit the data and insert dollar signs, commas, 
decimals, and explanatory characters. The decimal point in automatic-decimal 
variables will be aligned with the decimal point indicated in the dline field. 
The following characters may be used to indicate the format of the field: 



Character 



Explanation 



X 



This character represents a digit that is 
to be replaced by a blank if it is a high- 
order zero (i.e., a zero not preceded by 

„ „.• :£! x. J:~:i-\ j.~ i.l~ _ i„lj. _£ iA_ _ J___- 

<X 31 UlIHHJcU.lt. Mikity LU LUC 1C1L U± LUC UdU" 

mal point (if any). It will also be re- 
placed by a blank, regardless of its po- 
sition, if all digits are represented by Xs 
(as in lines 03 and 07 above) and all 
digits are zero. 

This character represents a digit that is 
always to be printed, even when it is a 
high-order zero. 

This character represents a fixed dollar 
sign when followed by a Z ( as in line 05 
above) or a floating dollar sign when 
followed by one or more Xs (as in line 
03 above). The $ need not appear (see 
line 02 above), but, when it is used, it 
must immediately follow the print po- 
sition number. 

A floating dollar sign will print imme- 
diately to the left of the first printed 
digit. However, it will not float any far- 
ther to the right than the print posi- 
tion immediately to the left of the deci- 
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Character Explanation 

mal point (if one appears). Thus, the 
$ in line 03 might print in position 19, 
20, 21, 23, 24, 25, or 26, depending 
on the placement of the leftmost sig- 
nificant digit in each amount printed. 
When all digit positions are replaced 
by blanks, the $ will also be replaced by 
a blank. 

A fixed dollar sign will print in the print 
position indicated. The $ in line 05 will 
always print in position 45, since the 
code character X does not appear to its 
right. (An illustration of another way 
to denote a fixed dollar sign appears on 
line 03, page 66, where a dollar sign is 
entered in a constant field.) 

9 This character represents a comma when 

used within the format of the field. Com- 
mas may appear to the left or right of 
the decimal point. The comma will print 
only when digits are printed to its left. 
If the code character X allows the sup- 
pression of all high-order zeros to the 
left of the comma, the comma will also 
be suppressed. When the floating dollar 
sign is used, therefore, it will also float 
over commas that are to be suppressed. 
Since zeros to the right of the decimal 
point cannot be suppressed, a comma to 
the right of the decimal point will al- 
ways appear. 

This character represents the decimal 
point. Only one decimal point may ap- 
pear in any given field. When all digits 
are replaced by blanks, the decimal will 
also be replaced by a blank. 

) A closing parenthesis may follow the 

rightmost position of the edited field. 
This code character does not occupy a 
print position; it is necessary only if 
explanatory characters follow, e.g., the 
plus and minus in lines 04, 05, 06, and 
07, above. The use of explanatory char- 
acters will be explained below. 

When the above characters are used to indicate the format of an edited field, at 
least one X or Z must appear, but not more than 20. When all digits are repre- 
sented by an X and no significant digit appears in the amount, the entire field 
( including the dollar sign, commas, and decimal point positions ) will be replaced 
by blanks. 
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When a field of this type is considered by the edmov macro generator, any ex- 
planatory characters which appear beyond the closing parenthesis ( if this option 
is elected) are treated as follows: 

1 T,yr<\ n/\nt;pniifi"iro Wl onW *T7ill cirfnol f-Vi o on A r\f tno nnprQiin 

1, X. WKJ ^UlljCOULlVV^ VL0.1.XJ\.a VVJLJLX d±fLl.lG.± Ul^/ ^llw \sx. WAV uuuiuiiw. 



2. Any characters which appear between the closing parenthesis and the comma 
to the right (or two consecutive blanks) will be inserted in the print line 
when the edited amount field is positive or blank. 

Any characters to the right of the comma will be inserted if the field is nega- 
tive. The comma may be omitted if blanks are to be inserted for a negative 
field. 

3. The explanatory characters may include numbers, letters of the alphabet, a 
single blank, and special characters (other than comma and record mark) 
acceptable to the input device used. A comma would signal the end of a set 
of characters; the maximum size for a set is one word. 

4. The number of print positions required for explanatory characters will be 
equal to the largest of the two sets which may appear. Blanks will be inserted 
to the right of the shorter set when it appears. 

Consider the following examples: 



Line 

|3 51 



0, I 



2 



Label 



Operation 
16 20 



L.I.N E.N.AME, 



I ELD. ONE, 



D,L 



LN.E 



21 



25 



30 



OPERAND 

35 40 



17.$.X,.,X,X,X l .,Z.Z,),-r,.- , 



«\ 



3 



LE.LDTWO, 



3,Q.lX...X.X.X...Z.Z,).D,R...C.R, 



,t,L,u,i ,n,w,t,t 



Q,U,»,A,.,A,A,A,» Xitl ,r,L.iU,Oi 



5. 



I,E,L.D.F,0,U.R, 



7.0.tX,..X.X.X,..Z.Z.)..,C.R. 



6 



A positive and a negative amount, respectively, would print as follows: 

fieldone, print positions 17 through 26. 

$1,234.56+ 
$1,234.56- 

fieldtwo, print positions 30 through 40. 

$1,234.56DR 
$1,234.56CR 

fieldthree, print positions 50 through 63. 

$1,234.56PLUS 
$1,234.56MINUS 

fieldfoue, print positions 70{hrOugh 80. 

$1,234.56 
$1,234.56CR 

A single blank may appear at one or more points within a set of explanatory 
characters, as in the following example: 
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Line 

13 5| 



2 



3 



Label 



Operation 
16 20 



L.INEN.AME, 



Fl ELD, NAME, 



DUNE 



_2§_ 



30 



OPERAND 
3§ 40 



2 7.$.X,X.Z.Z,Z, .+,., .-. .** 



A positive amount and a negative amount, respectively, would print as follows 
in print positions 27 through 38: 

$123.45+ 
$123.45-** 



Processing Techniques 
Genera/ 



At object program time, dline areas are initialized by condensed load cards which 
set all print positions within the area to blanks. These cards are followed by 
condensed load cards which initialize the constant data fields to the contents 
specified. 

Since data fields will not necessarily occupy complete words, these cards will also 
cause blanks to be loaded into print positions which occupy the remainder (if 
any) of a word in which constant data falls. Constant data fields, therefore, 
should be entered in ascending order. If the processor encounters a constant data 
field which (1) is lower in sequence than the previous print position reserved, 
and (2) specifies a print position in a word in which a print position has been 
previously specified as constant data, the resultant condensed load card will 
overlay the previously specified print positions, thus yielding inconsistent re- 
sults. 

Although constant data fields are restricted to ascending sequence, the other sub- 
sequent entries may appear in any order. Thus, they may be used to specify print 
positions which cause different labels (and different characteristics, if desired) 
to be assigned to fields which occupy the same or overlapping print positions as 
in the following example: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


21 25 30 






OPERAND / 

35 40 45 \ 


0. 1 , 


P.RI .N.T.L.I.N.E. 


DLINE 








2 


Fl ELD.ONE, 




L_. J 


2 1 $,X,,.XX.X...Z.Z 
















3 


F.IE.LD.A 






2,0... 2.8 


















4 


F.I.E.L.D.TW0. 






3,o.i.x.x.x...z.z. . 


















5 

1 1 


F.I.E.LD.B, . , 


> ' 




3,0,lX.X.X . ZZ . 


















6 

1 L_ 


F.IELD.THREE 




' 


4,0.$.X,..X.XX..Z.Z 


















7 

1 L_ 


FIE.LD.C 






4,2... 5.0 


















8 


_i ■ i . ■ i . , . 




1 


— i — i — i — i — i .ii.. 
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It should be noted that a unique problem arises if the two fields overlap in the 
manner indicated by lines 06 and 07 above. Reference to either field will cause 
that field to be inserted as specified. However, if fieldc is inserted, data may 
remain in print Dositions 40 and 41 from a nrevious use of fieldthree and, when 
fieldthree is inserted, data may remain in print positions 49 and 50 from a pre- 
vious use of fieldc. Thus, the object program must include additional coding 
to blank out data remaining from use of the other field. 

Since all print positions are initially set to blanks, it is not necessary for the pro- 
grammer to provide coding to blank out the print positions between fields. How- 
ever, if the object program includes coding which alters these undefined print 
positions, it must also include coding to restore them to blanks when this be- 
comes desirable. 

If, in some instances, certain fields in a line are to be blank, they should be 
blanked out by a zero macro-instruction which references the label of the ap- 
propriate dline subsequent entry. If the zero macro-instruction refers to the 
label of a dline header line, however, it will permanently blank out constant 
data fields (if any) in the line as well as clear the variable fields. It will not, 
however, affect the dollar signs, commas, and decimals in the edited fields; these 
are inserted by coding which is generated by the edmov macro-instruction. 

On-line Printing During the running of the object program, data will be edited and moved into 

the dline area which serves as an image of the line to be printed. When all data 
is included in the area, the object program will issue an output statement which 
will transmit data from the dline area to the printer. This would normally be 
accomplished by a print command which refers to one or more rdws defining the 

If the standard ibm 7400 printer panel wiring is used, line spacing and carriage 
spacing may be determined by digits 6, 7 and 9 of a Control Information Word 
as described in the 7070 Data Processing System Bulletin "ibm 7070 Utility Con- 
trol Panels," form J28-6095, pages 8 and 9. Thus, the programmer is responsible 
for establishing a constant to fit the requirements for the Control Information 
Word as described in that bulletin. The print command must then reference one 
or more rdw(s) which causes the Control Information Word to be the first word 
sent to the printer, followed by the data in the dline area. Note that the Control 
Information Word will not be printed. 

It should also be noted that the use of the standard ibm 7400 utility control panel 
provides for printing from typewheels 1 through 75 on one print cycle and from 
typewheels 76 through 120 on another print cycle. Thus, while a single dline 
statement may be used to describe a print fine which uses both sets of type- 
wheels, a single print command may not be used to print this entire line. 
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The following coding, however, would accomplish this purpose: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 1 


1 , 




uw. . 


2 .F.IRS.T.HAL.F ( 


2 






























3 




































4 












uw, , 


1^ 


& 


E.C.C^N 


D.HAL.F 


















5 






































6 








































7 




£ 


1 


JL 


S,T 


HALF 


DR.D.W, 


+,c 


lL 


W,l, . ,c 


IW1, , 


















8 














D.R.D.W, 


^A 




B, , , 




















9 




s, 


E 


c 


ON 


DH.ALF 


DRD.W, 


±£ 


lL 


W,2. . ,C 


I.W.2. , 


















1 














D.RDW, 


zA 




D, . , 




















1 1 
















',., 




iii. 


a i l I 








, 1 , 











Off-line Printing 



The coding on line 07 above defines the first Control Information Word. Words 
1-15 of the dline area are defined on line 08. The coding on line 09 defines the 
second Control Information Word. Words 16-24 of the dline area are defined on 
line 10. 

The first Control Information Word ( crwl ) would contain a digit "0" in position 
5 to cause printing from typewheels 1 through 75. The second Control Informa- 
tion Word ( ciw2 ) would contain a digit "1" in position 5 to cause printing from 
typewheels 76 through 120; a digit "6" in position 6 would cause spacing to be 
suppressed before printing. 

When a tape is to be prepared for off-line printing, the following characteristics 
of the printer must be considered: 

1. The first character of each line may be used to control carriage skipping and 
spacing. 

2. The number of print-line records per tape block and the size of each record 
must not exceed that which the printer will accept. 

3. A record mark may be required to separate the print lines within a tape block. 

Thus, when the dline subsequent entries are written, the programmer should first 
refer to the appropriate printer manual to determine the allowable tape and 
printer formats. 

When the first character of the print line is to be used to control carriage skip- 
ping and spacing, the other dline fields will print from the type wheel to the 
left of the position named. Therefore, if the character "1" on line 02 of the fol- 
lowing example is used for carriage control, the characters "header" will print 
in type wheels 1 through 6. 
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Line 

3 51 



0,2 
3 
4 



Label 



Operation 
16 20 



PR, I .NT.LI.N E 



DLIN.E 



25 



OPERAND 

35 40 



1@,1,@, ■ , 



' i I I I I I 1 I 1 L_ 



2@H,EA,D,E,R,@ , 



-J I I LJ 



Thus, by defining the proper constant as "print position" 1 of each dune area 
the programmer can predetermine the carriage control for the various lines on 
the output listing; e.g., a header line would have a "1" in position 1, detail lines 
might have a "0" for double spacing, etc. Another method would be to insert the 
proper alphameric control character through programming, e.g., by reference to 
the label, carriage, above. 

When the data has been edited and moved to the dline area, normal procedure 
would be to insert the assembled print line in an output file, where it is blocked 
under control of the Input/Output Control System. The following macro-instruc- 
tion would accomplish this function: 



Line 
3 5 

1 


Label 


15 


Operation 
16 20 


OPERAND J 

21 25 30 35 40 45 ( 




PUT, 


PRINTLINE .IN, ,OU,T,PU,T,F,l,L,E, , ,1 


2 


, , i,i, j — . — . — 


,ii, 


, i i ■ 1 1 1 1 . — 1 1 1 : 1 "^ 



The following coding might also be used: 



Line 



2 



3 



5 



Label 



Operation 
16 20 



P UT 



MOVE 



25 



OUTPU.T.FI ,L, 



PRI ,N,T.L,I,N,E 



OPERAND 

35 40 



Jio 



,o,u 




T.PUTF.I.L.E 



In each case, Printline is the label of the dline header and outputfile is defined 
as a tape output file, put and move are explained in the 7070 Data Processing 
System Bulletin, "ibm 7070 Input/Output Control System," form J28-6033-1. 

As soon as the put (or put and move) macro-instruction(s) have placed the 
dline area in the output file, the object program may proceed to prepare the next 
print line in the dline area. 
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Note that the dline area itself may not be defined as a file, i.e., the operand of a 
dtf header line may not be the label of a dline header line. 

Particular consideration must be given to the use of the record mark in tapes 
prepared for off-line printing on the ibm 720. If more than one print-line record 
is to appear in a tape block, each record must end with a record mark, with the 
exception of the last record in each block. The object program, therefore, must 
include coding to count the lines that have been moved by the put macro-in- 
struction and must cause a record mark to be inserted at the end of each record 
except the last one in a block. The end-of-job routine must also include coding 
to insure that no record mark appears at the end of the final print line. 



Additional Examples Additional examples of the use of the dline statement in conjunction with the 

edmov macro-instruction appear on pages 210 and 212. 
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DRDW — Define Record Definition Word 



The declarative statement, drdw, may be used to generate an rdw defining any 
area of storage specified by the programmer. It may also be used to cause the 
generation of one or more edws associated with an area defined by a da or dc 
statement in some other part of storage, i.e., not immediately preceding the da 
or dc area. 



Source Program Format 
Single RDW 



When used to generate a single rdw for a given area, the format of the drdw 
statement is as follows: 



Line 
3 5 


Label 
6 IS 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 J 


1 , 


A,N.Y LA.B.EL, 


D.RD.W, 


+ A,D.DR.E,SS,1...AD,D.RE.S S 2, .......( 


2 


A,N,Y.L,A.BE,L 


D.R.D.W, 


-A l D r DR 1 ES.S.l...AD,D,R,E.S,S,2 J 


3 


AN,Y L A.BEL 


DRDW, 


AD.D.R.E.S.S1 .. A.DDRE S.S2 ) 


4 




i 


i ' i ■ — i—i — 'I'' — ' , i i i i i A 



anylabel may be any symbolic name or it may be omitted; it may not be an 

__i... „1 „JJ „ r.r.^17 m„t-t V,o -ij/riH-^n pvnptlv as shown. ADDRESSl and ADDRESS2 

ilCLUCll cUJAAlcaa. uiaisyv iuuji u^ yt.^....^^ ~- : j — 

are the limits of the area to be defined by the generated rdw. Either addressI 
or address2 (or both) may be an actual, *, or symbolic address. The * or sym- 
bolic addresses may appear with or without address adjustment. The sign of the 
generated rdw is determined by the sign preceding addressI; if a sign does not 
appear, however, the generated rdw will be signed minus. For example, if 
addressI had been assigned to location 4372 and address2 had been assigned 
to location 4408, the processor would have generated the rdw, -0043774400, at 
the point where the following drdw was encountered: 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45^ 


1 


ANY L.A.BEL, 


D.R.D.W. 


AD,D.RE.S,Sl,+ 5.. ADDR.ESS2-.8 , ,J 


2 




i . i , 


" \ 



The addresses in the operand of a drdw statement may be the same, as in the 
following examples: 
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Line 

3 51 



2 



3 
4 



Label 



Operation 
16 20 



A.N.Y.LA.BEL.l 



ANYL A.BEL2 



ANYL A.BEL3 



D.R.D.W. 



D^D.W, 



DR.D.W 



OPERAND 

35 40 



+ tt. . tt 



-.3.2.4... 3.2. 4. 



AD.D.RE.S.S.A.D.DR.FS S, 



When this is the case, the generated rdw will define a one-word area. Thus, line 
02 above would cause the generation of the rdw, -0003240324. 



Multiple RDWs 



As explained under "DA-Define Area" and "DC-Define Constant," writing "rdw" 
on a da or dc header line will cause the processor to generate an rdw(s) asso- 
ciated with the da or dc entry and to assign it a storage location immediately 
preceding the defined area. Sometimes, however, it may be advantageous to 
cause the rdw(s) associated with a da or dc statement to be generated in some 
other portion of storage, i.e., not immediately preceding the da or dc area. This 
may be accomplished by using a drdw statement with one of the following 
formats: 



Line 

3 51 



o 2 



3 
4 



Label 



Operation 
16 20 



ANYL A.BEL 



A.N.Y.L A.BE.L 



ANYL A.BEL 



DR.D.W. 



DRD.W 



DRDW 



+.H.E.AD.R.I ..A.r.f.i 



-H.E.A.D.R .LA.B.E.L 



HE.A.DR, LABEL. 



35 



OPERAND 

40 



anylabel may be any symbolic name or it may be omitted; it may not be an 
actual address, drdw must be written exactly as shown, headrlabel must be 
the label of a da or dc header line which appears as an entry in the program 
sequence. When this format is used, address adjustment is not allowed. If 
headrlabel is the label of a da header line, the number of rdws generated will 
be the same as the number of areas designated by the da header line. One rdw 
will be generated if headrlabel is the label of a dc header line. A plus sign 
preceding headrlabel will cause all rdws generated to be signed plus; a minus 
sign will cause all rdws generated to be signed minus. If no sign is shown, as 
in the format on line 03 above, all rdws generated will be signed plus except the 
last which will be signed minus. When using symbolic machine statements, 
the programmer may make reference to the first rdw by referring to the label 
of the drdw; address adjustment may be used to refer to the subsequent rdws. 



Additional Examples 



The coding on the following page illustrates some of the operand forms which 
might appear in a drdw statement. 
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Line 
3 56 


Label 

15 


Operation 
16 20 


OPERAND f 

21 25 30 35 40 45 


1. A 


.N.Y.L.A.B.E.U , 


DR.D.W. 


HE.A.DR.LAB.E.L / 


2 










D,R,D,W 


+ H.E 1 A,D 1 R.LA,B,E,L . , , . \ 


3 










DRDW, 


-HE.AD.RLA.BE.L, , J 


4 










D.R.D.W, 


+ 19 9 \ 


5 










D,R,D,W, 


-3,2,5, ,,4,9, 9.9 , i 


6 










D R,D,W, 


0,,, 9,9,8,9 \ 


7 • 










DR.D.W, 


ttt, , Jfr, , , , , , , n 


8 










DRDW, 


-,*-.!,..*■. \ 


9 










D.R.D.W, 


+-*■ -*-+ ? / 


1 










DRDW, 




1 1 










DRDW, 


*,-,±,,,*,+,2 ,/ 


1 2 










DRD.W, 


+,A 1 D,D 1 R,E,S,S,1,, 1 A,D,D,R,E 1 S,S 2 \ 


1 3 










DRDW, 


-A.D,D 1 R 1 E.S 1 S 1 ± 1 +,1 1 , 1 A 1 D,D,R,E,S.S,2 1 , , J 


1 4 










DR.D.W, 


+ ( A,D,D l R 1 E,S,S,i l „A l D i D l R,E,S,S2,t 1 5 ( 


1 5 










D,R,D,W, 


-,A,D,D 1 R 1 E,S,S,1-1,0,.,A,D,D,R,E,S,S,2,-,1,1, ,) 


1 6 










D,R,D,W, 


A,D,D,R,E,S,S,l-,2.,,A,D,D,R 1 E,S,S,2+.5, , , , < 


1 7 










D.R.D.W, 


+ ,*,, 1 A 1 D 1 D,R,E 1 S 1 S \ 


1 8 










D.R.D.W. 


-AD.D.R.E.S.S,.,*, 1 


1 9 










D.RDW, 


+,A i D,D i R,E,S,S,+,t„^,+ l \ 


2 










D,R,D,W, 


+P,,,* , • J 


2 1 










D.R.D.W, 


— ■*■ 4QQQ / 


2 2 










D.R.D.W, 


+-,3,2,5,. ,A.D : D,R,E 1 S,S,+.2, , \ 


2 3 










D.R.D.W, 


-,A,D,D,R,ES,S,,, 9,9,8,9, ) 


2 4 










D.R.D.W, 


0„,A 1 D 1 D 1 R.E,S,S ( 


2 5 










DRD.W, 


X-.AD.D.RES.S ) 












DR.DW, 


AD,D,R,E,S,S .9,9,8 9 7 


, , 




i 




i i 


III! 


- J 1- 1. - . 1 . i 1 1 1 1 1 l : 1 ■ ■ : l\ 
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DSW — Define Switch 



The primary function of the dsw declarative statement is to provide from one 
to ten digital switches which may be considered singly, or as a group, by the 
setsw and logic macro-instructions, setsw and logic will treat these switches 
as logically equivalent to electronic switches, although processed in a slightly 
different fashion. (The switches may not be referred to by electronic switch com- 
mands, e.g., esn, esf, etc. ) 

Each switch that is generated by the dsw statement occupies one digit position 
of a word and is considered off if its digit value is zero and on if its digit value 
is other than zero, regardless of the sign of the word. Since the switches are gen- 
erated at the point where the dsw statement is encountered, this statement 
should not appear within a series of machine instructions. 



Source Program Format The format for a dsw entry is as follows: 



Line 

3 51 



I 



Label 



Operation 
16 20 



AN YL ABEL 



DSW 



35 



OPERAND 

. 40 



SW.l.TC.Hl .-S.WI.TCH.2, -T-SW.I T,C,H,3,.e,t c . 




Processing Techniques 



anylabel may be a symbolic name or it may be omitted. The entry dsw must 
be written exactly as shown. As many as ten symbolic switch names may ap- 
pear, with a comma inserted between names. Continuation cards may be used, 
if necessary. The name of each switch must be unique; i.e., it must not be defined 
elsewhere as the label of another item. The initial setting of a switch is deter- 
mined by the following: 

1. If a plus sign, or no sign, precedes the name of a switch, the switch will be 
considered on and set to "1." 

2. If a minus sign precedes the name of a switch, the switch will be considered 
off and set to "0." 



When the dsw statement is encountered, the processor will construct a one-word, 
positive, numerical field. The leftmost position will contain either "1" or "0," 
depending on whether the first-named switch in the dsw is to be initially on 
or off. Succeeding digit positions will indicate the status of the remaining 
switches, in the order they are named. If less than ten switches are named, the 
remaining digits are set to zero. It should be noted that, while the switches are 
"" u " u ; iv.-ci.vi^u no uv^i-uutu, mc piwgi annuel in us l proviue aacutionai coding 
(e.g., a setsw macro-instruction) to reinitialize the switches if they are to be 
utilized in multi-pass programs. 



Reference to the label of the dsw statement by symbolic machine instructions or 
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macro-instructions will result in reference to the entire word used to contain 
the switch settings. Consequently, if a label is supplied for a dsw, the entire 
set of switches may be tested or altered by logic and setsw statements. 



■\r\ c\ rr r\*in q4- 



m ,U-„\*, 



U,r 



'1'Krt fi-**r\*v-~n-vwrtf\ *-*»• * r. tirni^^jjH niTnir\pt frnnrtrf t-r\ imfinlir7o £±i£*/~ii-vr\-ni *-\ ciTrifrth/af 1 l-v^ r 

XiiC L/l. Ufc*l ailliiici la vvcuiitu atLaiLioi. u.y.ix.it' iu -li±j.h«.ia.^<J i/icv<uuiii^ jwnuics L»V 

using a dsw with an origin to 101, 102, or 103. The switches would be treated 
as digit switches, ignoring the fact that they are electronic switches. 



Additional Examples 



The coding on the following page illustrates various operands which might 
appear in a dsw statement. An additional example appears on page 187, where 
the defined switches are referred to by the setsw macro-instruction. 



Operation 



DSW 



.N.Y.L ABEL 1 



ANY,L,A,BE,L2 



i A.N.Y.L,A.B.E.L3 



A N.Y.L A.B.E.L4, 



-S.W.I T.C.HB. 



SW.I T.C.HC, 



Basic Autocoder ► 



SW.I T.C.H.D ..SW.I T.CH E, 



■SW.I.T.CH.F . — .S.W.IT.C.HG . S.W, I T.C.H H, 



-SW.I T.C.H.l. ■ S.W. I .T.C.H.2. ..S.W.I ,T.C.H,3, ..+.S.W I 



S.W.I.T.C.H.7. .—. S.W.I.T.CH.8 . .S.W I T.CH. 9. .-S.W I 



T.C H 4 ■ 



T.CH.IO 



Autocoder - 
65 70 



+.S.WI T.C H,6, 
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EQU — Equate 



The equ statement may be used to equate a symbol to: 

1. An actual or symbolic address. 

2. An index word or electronic switch number. 

3. A channel, tape unit, combined channel and tape unit, combined arm and 
file, unit record synchronizer, inquiry synchronizer, or alteration switch 
number. 

Thus, the equ statement provides a convenient way to cause one or more symbols 
to be assigned to an actual location or to machine hardware. In this way, the 
same item may be referred to by different names in different parts of a program. 
Meaningful and easily remembered symbols may be used throughout the pro- 
gram, rather than the actual machine numbers which might be required in the 
operand of some Autocoder entries. In addition, when it is necessary to change 
the actual location or machine number, it is more convenient to change a single 
equ statement than to alter each Autocoder statement which might otherwise 
contain the actual number. 



Source Program Format The general formats for an equ statement are as follows: 



Line 
3 5 

1 , 


Label 

6 13 


Operation 

16 20 


21 25 30 


OPERAND 

35 40 


45, 


ANY L.A.B.EL . 


EQ.U, , 


AD.D.R.E.SS j 


2 


A.N.Y.L.A.BE.L, , 


E.Q.U, , 


AD,D.R,E.S.S. t .Y .( 


3 


AN.YL A.BEL, 


EQ.U, , 


Y ( 


4 




, i i i 


_ _i 1 1 1 — i 1 1 1 1 1 1 1 1 1 — 1 1 1 1 — l — 1 1 1 1 1 Li. 



The entry equ must appear exactly as written, anylabel is the symbolic name 
which is to be equated to address, anylabel may not be defined elsewhere in 
the same source program and may not be omitted. 

address may be any of the following: 

1. An actual address, with or without field definition. 

2. An index word or electronic switch number. 

address adjustment. This symbolic entry must appear as the label of an 
Autocoder entry elsewhere in the source program (not necessarily previously). 
It may not appear as the label of another equ statement. 

The number of an index word, with or without field definition. 

The number of an electronic switch. 

The number of a channel, tape unit, combined channel and tape unit, com- 



■»oHt 



>miiH7 cimnhrnTn70T r\v 



tion switch. 

6. Omitted, in which case the first character of the operand must be a comma, 
followed by an X, S, T, etc., as described on page 86. 
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Y is replaced by a one- or two-character code which identifies address as a par- 
ticular piece of machine hardware. 

Since equ statements do not actually occupy core storage locations in the object 
program, L±±ey may v& insertou. at any point, in me source program, proviucu. 
that they are not intermingled with the subsequent entries under a da, dc, or 
dline header line. (This is in contrast to the other declarative statements, which 
must be separated from the program instruction area. ) 



Processing Techniques 



The method of coding each of the general uses of the equ statement is described 
below. 



Actual or Symbolic Address 



A symbolic name may be made equivalent to an actual or symbolic address. The 
symbolic name to be equated is written in the label columns. The operand may 
contain an actual or symbolic address, with or without field definers. Address 
adjustment may also be used with a symbolic address. 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 ) 


1 , 




D,A, . , 




2 


CU.S 


T.N.O 








2.. 


lS. 


























3 








































4 












, 






























5 , 












, 






























6 












. 






























7 










































8 


[ca 


A 


s,s. , 




E.Q.U, , 


CU 


ST.N.O 


(.0...1.) 




















,\ 


9 


. j-_ 








, 




l 1 1 1 






















, 



The above entries will cause the processor to assign the same location to the 
symbol class as was previously assigned to custno. In addition, class will be 
given field definers denoting the two high-order positions of custno, i.e., 2, 3. 



example: 



Line 

3 5 


Label 
6 IS 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 } 


1 , 




DA, . 


1 /> 


2 


RAT 


E. . . . 






2...6.A 


2 


.3 , 
















3 
































4 




































5 




































6 












, 
























7 




































8 


CL 


A 


s.s. 






E.QU, , 


R.AT.E 






,S,E 


E, 


W.ARN 


I.N.G 


BE.L.O.W 


9 


i 




, 






, , j i 


,.„!. -L„ 1 




L i J i 










f 

11 1 1 1 / \ 



EQU 
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The above entries will cause the processor to assign the same location to the 
symbolic name, class, as was previously assigned to rate. In addition, class 
will be given the same field definers as rate, i.e., 2, 6. 

If address adjustment had been used in the preceding examples, only the assign- 
ment of a location would have been affected; the field definition would have been 
derived in the same manner as before. It is important to note, therefore, that 
the programmer is responsible for insuring that the field definition will actually 
be that desired for the new location. 

The additional characteristics defined in the operand of a declarative statement 
will not be assigned to the name in the label field of an equ statement. Thus, in 
the preceding example, class will not be identified as a numerical field containing 
an automatic-decimal number. This creates no difficulty with symbolic machine 
instructions, since they do not use these characteristics, but limits the utility of 
the equated symbols in macro-instruction operands. When a symbol is equated 
to another symbol, a macro generator will treat the symbol in the label of the 
equ statement as if it had the characteristics of a single whole word. Unless 
specifically desired, therefore, the use of equated symbols in a macro-instruction 
operand may cause program errors and should be avoided. 

Two other methods are suggested for assigning two ( or more ) different symbolic 
names to the same field and the same characteristics. One method is to list both 
names as subsequent entries under the same da, repeating the starting and end- 
ing digit positions and format indicators of the field, as in the example on page 45. 

Another method of assigning two different symbolic names to the same location 
is to place the second name ( with format indicators as desired ) under a separate 
da that is made equivalent to the first through the use of an Origin Control 
statement as explained on page 90. 

Note that the equ statement does not allow the following transitive relation: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND j 

21 25 30 35 40 45 J 


1 


A 


E.Q.U. 


B / 


2 








3 








4 


B 


EQU, , 




5 




,iii 


1 i i 1 1 1 1 i 1 1 1 1 1 1 1 1 1 . . 1 1 i . ! l\ 



Statements of this form are not acceptable; they will result in an incorrect location 
assignment. (The desired effect may, however, be obtained by writing: a equ 

C; B EQU C. ) 



Index Word or Electronic 
Switch Number 



A symbolic name may be made equivalent to an index word or electronic switch. 
The symbolic name to be equated is written in the label columns. The operand 
contains the one- or two-digit word (1-99) or electronic switch number (1-30), 
followed by a comma and the letter X or S, respectively. An index word may be 
field-defined as illustrated below. The index word or electronic switch that is 
equated to the symbolic name will be reserved during compilation; i.e., it will 
be passed over when Autocoder assigns symbolic index words and electronic 
switches to actual locations during Phase III. 



84 



EXAMPLES: 



Input/Output Units and 
Alteration Switches 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND [ 

21 25 30 35 40 45] 


1 , 


LO.O.P.C.O.U.N/T. 


E.Q.U. . 


i,,,x, , 


, 






, 


t , 


, 




, , 


, , , / 


2 






, 






' i 






, 












, , , / 


3 




























i 






, , , \ 


4 


1 X,W,0 


R,D 




E.Q.U, , 


5,2,( 


2 




5,),, 


X 




, 




i 


i 




, , 


i , i Y 


5 








, , • i i 








, ' 






i 




.j.. 


, 




' ■ 


, , , 1 


6 
















i i 
















, , 


, , ,\ 


7 


S.W.I ,T 


C,H,A 




E.Q.U, , 


2,5.. 


S 




■ i 












i 




, t 


, , , ) 


8 


1 ] 1 






__l ■ ' ■ 


1 1 






i__i i_ 






, 






i 




' ■ 


, , , 1 



The first entry will assign the name loopcount to index word 1. The second 
entry will assign the name ixword to index word 52, with field definition (where 
applicable) of 2, 5. The third entry will assign the name switcha to electronic 
switch 25. 



A symbolic name may be made equivalent to a particular piece of machine hard- 
ware. The symbolic name to be equated is written in the label columns. The 
operand contains the number or value of the item, followed by a comma and an 
explanatory code character. The explanatory code characters used in equ state- 
ment operands are as follows: 

Code 



Item 



Tape Channel and Unit 

Tape Channel 

Tape Unit 

Disk Storage Arm and Unit 

Index Word 

Electronic Switch 

Alteration Switch 

Unit Record Latch 

Unit Record Synchronizer 

Reader 

Printer 

Punch 
Inquiry Synchronizer 
Typewriter 



CU 
C 

U 

AF 

X 

S 

SN 
I 

R 

W 

P 

Q 

T 



To illustrate, the following entry will cause the processor to assign the name 
restart to alteration switch 1: 



Line 

3 5 


Label 
6 


15 


Operation 
16 20 


21 25 


30 


OPERAND 

35 40 


45f 


1 , 


RES T.A.R.T. 


EQU, 


1...S.N. . , 


. i i i 


j ; i 1 i : 1 — i — 1 1 — i— 

J 1 1 — 1 — 1 1 1 — : — 1 1 L_ 


, 1/ 


2 




I,, 





1 1 \\ 



EQU 
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This entry would make it possible for the programmer to write the more mean- 
ingful entry on line 01 below, rather than the entry on line 02: 



Line 
3 51 



0, I , 
2 



3 



Label 
6 15 



-I i 1 L. 



Operation 
16 20 



BAS 



BAS, 



25 



30 



35 



OPERAND 

. 40 



RE,S,TA,R,T,,,R,E,S,T,ORE, 



1,,,R,E,S.T,0,R,E. . 



This particular type of equ statement may also be used for the specific purpose 
of identifying a particular item of hardware for the benefit of a macro generator 
(see "snap," example 1, page 228). When used for this purpose, the first entry 
in the operand may be omitted, as in the following examples: 



Line 

3 51 



2 
3 
4 



Label 



R.E.G NAME 



SW,I J.C.H 



TYPEW.R I T ER 



Operation 
16 20 



E.Q.U, 



EQU, 



EJ3.U, 



25 



30 



OPERAND 

35 40 



..x. . 



,, s , , 



-I — 1 — I I I I 



. T, , 



Additional Examples 



The coding on the following page illustrates operands which might appear in an 
equ statement. 
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Line 



2 




6 



2 3 



Label 



Operation 
16 20 



ANY LA, BEL 



A.N.Y.L A.BE.L1, 



ANY L A.B.EL.2, 



ANYLABEL 3 



AN.YLA.BEL4 



EQU 



EQU, 



EQU, 



EQ.U, 



A.N.Y.L A,BEL , 5 , 



X.W.ORD.NAME , 



X.WO.R.D. 



S.W.I T.C.H 



X.WO.RDA 



S.W.I .T.C.H A. 



C.HANN.EL 



ACT, I O.NTAPE 



M,A,S,T,E.R,C,U, 



EQU, 



EQU, 



21 



25 



OPERAND 

35 40 45 



1 0,0,0 



3 2,5,(6., 9) 



OTH.ER.LAB EL 



' ■ B , E , L , ( 



0T.H.E.R.L 



EQU, , QT.H.E .R.I 



EQU, , Q,T.H.E , R ,L 



2-i » 1X1 



E.QU, 



EQU, 



EQU, 



E.QU, 



EQU, 



D,l ,S,K 



A.LTSW.I ,TC , H 



U.N, I TL.ATC H, 



REA.DE.R.NAME 



P.R.I .NT.NAME 
PUN.CH.NAME, 
INQUI ,R,Y 

T,Y,P,EW.R,I,T,E |R 



EQU, 



e,q;u, 



EQU, 



'■7.(.2...5 



2 9. S, 



JL 



x^ 



J-,,,c, 



s , , , u , 



11 A F 



[e^u, 



EQU, 



EQU, 
EQU, 
EQU, 
EQU, 



3 .,S,N, 



2,1, 
1...R. 



2,,W, 

3...P, 
1...Q, 
,i T , , 



i,BE,L,- 



, B , E , L , ( 



),,,X, 



±1, 



Control Statements 



Control statements are, in effect, orders to the processor which give the pro- 
grammer control over portions of the assembly process. Thus, origin and 
litorigin statements give the programmer control over the placement of his 
program in core storage/ branch statements cause the processor to produce 
execute cards containing unconditional Branches to locations specified by the 
programmer. An end statement will cause the processor to compile all remaining 
generated material and then produce an execute card containing an uncon- 
ditional Branch to a location specified by the programmer. Control over the 
assignment of locations to symbolic index words and electronic switches is main- 
tained through the use of xreserve, sreserve, xrelease and srelease statements. 

The formats and detailed descriptions of the use of these control statements are 
presented below. In all cases, the operation will be cntrl. The labels must be 
prepared exactly as shown: origin, branch, etc. The operand may vary as 
described for each control statement. 
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ORIGIN Control and LITORIGIN Control 



origin statements order the processor to override its automatic assignment of 
storage locations and to begin the assignment of succeeding entries at the par- 
ticular location specified by the programmer. Thus, they enable the programmer 
to control storage assignments of source-language input such as area definitions, 
constants, and instructions (including those generated "in-line" by macro-instruc- 
tions). If an origin statement does not appear before the first such entry in a 
source program, the processor will begin the assignment of storage locations at 
an address specified to the Compiler Systems Tape. This address is originally 
0325, but it may be altered as described in the ibm 7070/7074 Data Processing 
System Bulletin "ibm 7070/7074 Compiler Systems: Operating Procedure" form 
J28-6105. 

litorigin statements are used: 

1. To partition or "segment" a program in order to enable the correct loading 
of a multi-phase program by causing the immediate compilation of all re- 
maining material generated "out-of-line" in each segment (i.e., since the last 
previous litorigin, or since the beginning of the program, if no litorigin 
appears ) . 

2. To regulate the placement of this material. 

Material generated "out-of-line" in each segment includes generated constants, 
generated area definitions, generated symbolic subroutines, all literals, and all 
adcons. This material will normally be assigned locations immediately following 
the highest location assigned to the source program. The use of litorigin, how- 
ever, makes it possible to assemble this material at the end of each section or 
phase of a program so that it may be loaded with that section or phase. In addi- 
tion, litorigin is used to specify the beginning core-storage location at which 
the generated material is to be assigned. 

The assignment of actual program locations is effected by means of location 
counters which may be named symbolically by the programmer and used by the 
Autocoder processor. The programmer has complete control over which counter 
is to be used while assigning locations to a given section of the program. In 
addition, he also controls the setting and resetting of the counters as desired. 
When in current use, however, a counter will be advanced automatically by the 
processor as locations are assigned; thus, after each assignment, it will always 
contain the address of the next location to be assigned. Provision is also made 
for "remembering" the minimum and maximum value attained by each counter. 
In certain cases, e.g., if the processor finds that addresses are to be assigned 
before the programmer has named the first symbolic counter, use is made of an 
internal (and, therefore, unnamed) counter. 

Source Program Format The origin and litorigin statements have identical basic formats, written as 

follows: 



Line 
3 5 



Label 



Operation 
16 20 



21 



25 



30 



OPERAND 

35 40 



2 



O.R.I 6.1 .N 



C N.T.RL 



NA.M.EO.NE .. .N.A.M.E.T.W0. 



OR I GI.N 



C.NT.R L 



NA.M.E.O.NE, 



3 
04 
5 



L.I TOR. 1. 6 I N 



C N.T.RL 



NAM.EO.NE, ..N.A.M.E.T.W.O. 



LIT OR. I GIN, 



CNTRL 



NAM.E.O.N.E, 



The entries origin, litorigin, and cntrl must be written exactly as shown. 
nameone is an entry which supplies the initial value to the location counter, 

NAMETWO. 

nameone may be any of the following types: 

1. A symbolic label, with or without address adjustment, which has appeared 
previously. 

2. The character *, with or without address adjustment. It will be considered 
to have the value (as adjusted) of the location counter in use at the time 
this statement is encountered. 

3. An absolute machine address. 

4. The symbolic name of a location counter which has been established in some 
previous origin or litorigin statement, with or without address adjustment. 

5. From 1 to 97 entries of the preceding types, separated by commas, enclosed 
by parentheses, and preceded by the characters max, as shown in the example 
on page 91. The largest (adjusted) value in this set will be used as the 
value to be established. If any of the entries in the set are the names of 
location counters, the highest value it has attained ( rather than the last value ) 
will be the value for comparison. Continuation cards, described on page 17, 
may be used as necessary. 

In each of the five cases above, the value of nameone will be placed in the 
counter nametwo, which will then be used to assign subsequent locations. If 
nametwo is omitted, an unnamed counter will be used for subsequent location 
assignments, nametwo may be the symbolic name of a previously defined loca- 
tion counter or the symbolic name of a new location counter. In either case, no 
address adjustment is allowed. 

It is recommended that programs should normally be written with consistent 
nametwo usage: either (1) always spell out a nametwo counter, or (2) always 
omit any reference to nametwo. The latter case will mean that the unnamed 
counter is used throughout a program; this will often be suitable when a pro- 
gram is simple and straightforward, with little segmentation or overlaying of 
program areas. It can be seen that if nametwo is used consistently in a program, 
omitting a nametwo in some statement may cause the counter in use to be 
changed unwittingly. 

When macro generators create an origin or litorigin statement, there is an 
exception in its processing; i.e., an omitted nametwo will not cause the counter 
in use to be changed. The current counter will continue to be the one used for 
subsequent assignment because there is no way for a set of generated coding 
to refer to the counter that is in current use, but is obvious that this counter 
must remain the effective one. 
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To be compatible with Four-Tape Autocoder, an origin or litorigin cntrl with 
a blank operand has a special function. Each location counter, other than the 
counter named "S," is examined to determine the highest previous location (not 
necessarily the current value) assigned by any location counter. The value ob- 
tained is placed in the unnamed counter for subsequent assignment. 

If statements are assigned locations in the index word area by means of an 
origin to an actual address, the corresponding index words will be reserved as 
they are encountered during the assignment pass. This will normally be done 
early in assembly to avoid duplicate assignment of these words. 

Not more than 25 litorigin statements may appear in one source-language 
program. 



Processing Techniques 



In its simplest form, the Autocoder origin statement is used to indicate the 
initial location which is to be used in assigning locations to a program. Suppose, 
therefore, that a program to be processed by Autocoder begins with the entry 
below and that no other origin or litorigin statements are present: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


OPERAND j 

21 25 30 35 40 45 { 


0, 1 , 
2 


O.R.I ,G, I.N, , , , 


CNTRL 


5 0.0., COUNT A 1 


i i i I I ; i 


, 


i i i i i i i i i i i , i i i i i i i , i i( 



In this case, Autocoder will establish a single location counter, counta, with an 
initial value of 500. The entire program will be located in sequential locations 
beginning with 500, and all of the generated material will be assigned locations 
following the other programming entries. 

The origin statement may also be used to: 

1. Assign the same area of storage to several sections of a program. 

2. Partition a program into several sections. 

3. Assign program sections relative to the size and/or placement of other sections 
of the program. 

Consider, therefore, a program that is to begin in location 1000. In this program, 
records that are read into a certain area of storage may have three different 
formats; therefore, three different sets of symbolic names and field definers may 
be desirable. The programmer may use separate das to define the three record 
formats that are to appear. Then, by proper use of origin statements, he may 
cause the processor to assign all three das to the same area of storage. 



90 



The origin statements for this program might appear as follows: 



Line 


. l ■ r> OPERAND 
Label Operation 

R 15 16 20 21 25 30 35 40 45 




B 


asic 

50 


Au( 


o..L.. 

2 


OR 1 G i ,N 


C.N.T.R L 10.0.0, .CO UN T,A , , . , , , . 






, . 


' i 




ii- i i i 




, 




\ 


3 




# 
















4 




|4 










i 




/ 


5 


FORMA.Tl, 




DA , 


1,0 O.+ .X.W.O.R.D, , 













, , 






6 






l * J 
















■ 


/ 


7 






, t • j 



















/ 


8 






• 




















9 


O.R.I 6 1 ,N , 




C.NT.R 


LF I 0,R,M,A,T,1,,,C,0 1 UN,T 


B 














\ 


1 


F0,R,MA.T,2, 




DA, , 


1,0.,,,,0.+,X,W,0,R.D, , 












, , 




, 


1 1 






, , i 


















1 


1 2 






, 




















1 3 






, 














, 




/ 


1 4 


O.R.I ,G,I ,N, , 




CNTR 


LF,0R,M,A.T,1,,,C,0 1 U,N,T 


C 










, , 






1 5 


F,0,R,M,A.T,3, 




DA, , 


1,0 0.+,XW,0,R.D, , 












, 




\ 


1 6 






, ,, 




















1,7, 






, 



















.( 


1 8 






, 


















\ 


1 9 


O.R.I .G.I.N. . 




CN.T.R 


LM,A,X,(,C.0,U,N,T,A..,C,0 


u 


N 


T,B,. CO.U 


NiTiO 




c,o,u 


N,T 


0. 


2,0, 


ii i i i i i 




, i i 


i i i i i i i._i — i — i — i — i 













, , 




k 



The last origin statement insures that succeeding entries (and/or generated 
material) will be assigned locations beyond the longest da. If all three areas 
are the same length, or if the longest area is the last one to be defined, the last 
origin statement would not be necessary. 

In the preceding examples, all generated material would have been assigned 
locations beyond the last program entry. However, if origin statements are used 
to cause subroutines or phases of a program to be assigned to the same or over- 
lapping areas of storage, it may be desirable to include, in each section of the 
program, the generated material which it has produced. This may be accom- 
plished through the proper use of the litorigin statement as follows: 
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Line 
3 5 


Label 
6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 i 


1 
2 


ORI G I^N ___ 


CN.TRL 


10,0,0 ,.C OU N.T.A , 


_.. -. - J 




, 












3 




, 












4 




, 




> , 


(.M.AIN. ,RO,U,T,I 


N,E ). 






5 




















6 






















7 


L.l T.O.R.1 .6.1 N, 


CNT.R.L 


cou 


NJ.A 












8 




O.R.I ,6 1 .N, 


C^ 


N.T.R.L 


c,o,u 


NT.A 


..C.O.U.N.T.B, 













9 








, 


















1 
1 











. 


















1 








, 




r i 


,(.S 


U,B,R,O.II,T,T.NE 


,1.\, 








1 


2 








, • , , 


















1 


3 








, •, , 


















1 


4 




L,l .T.O.R.I ,G,I N, 


C, 


N,T,R,L 


co,u 


N.T.B 












1 


5 




O.R.I.G.I.N, , , 


C, 


NT,R,L 


CO.U 


N.T.A 


..CO.U.NJC. 










1 


6 








, •, , 


1 . 














1 


7 








i * i i 


4^ 














1 


8 








, 


T^ 


,(.S 


U,B,R,0,U,T,IN,E 


,2,*, 








1 


9 








• , 


4^ 














2 











, », . 


J^ 














2 


1 




L.ITO.R.I.G.IN 


C, 


N,T,R,L 


co.u 


NT.C 












2 


2 




ORI ,6,1 ,N, , , 


C^ 


NT,R,L 


c,o,u 


NT.A 


, .CCU.NT.D, , 










2 


3 








,• , i 








i i i i i . i 










2 


4 


























2 


5 










J 


*! 


(,S 


U.BJR.O.U.T.IiN.E 


3 ). 








2 


6 






















2 


7 




ii i ] i I i : i 












__1 _.-_.J J_J 1...!.^^ 


2 


8 




L.ITOR.I GIN 


CNT.R.L 


cou 


NJ.D 


1 1 1 1 , 1 










, 




■ 


, 


1 







Each time the processor comes to a litorigin statement, it assigns locations to 
all material generated "out-of-line" since the beginning of the program or since 
the last previous litorigin statement. Since all remaining generated material 
would automatically be assigned to locations at the end of a program, it might 
have been possible to omit the final litorigin statement. 

The origin preceding subroutine 1 could have been written 



j i i i i i i i i i i i i i i ■ ■ 



_i i i \ i_ 



8 



C.N,T,R,Ltt,,,C,O.U.N.T,B 



J I I I I I i 1- 



-J 1 I I 1 i U 



9 



■ ■ ' ' i ' ' ' 



-i i i i i i i i i i i i i i 



_i i i i ii 



since counta was being used when this statement was encountered. 
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If subroutines 2 and 3 were to start 25 words after the beginning of subroutine 1, 
the origin statements preceding them would have been written: 



1 4 


i 


< ' 


1 


































,1 


1,5, 


0,R 


1 ,G,I 


N, 






C,N,T 


R 


L 


C 


o,u 


N.T.A.+.2.5 




c,o,u 


N,T 


c, , 










V 


1 6 












, . 




























J 


1 7 












i i* 




























I 


1 8 


OR 


IGI 


N , 






C,N,T 


R 


L 


C 


o,u 


N.T.A.+.2.5 




c,o,u 


N,T 


D, , 










c 


1 9 




L . 1 . i 
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^j 


2 ,°, 


i 


1 1 
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i i 
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1 1 1 1 1 




1 1 
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If an origin statement to an actual address causes succeeding entries to be 
assigned locations in the index word area, the corresponding index words will be 
reserved and, if the entries are labeled, the index words will be named. The 
following example would cause index words 50 through 54 to be reserved and 
named and index word 55 to be reserved. 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND / 

21 25 30 35 40 45 \ 


0. 1 , 


0.R.I G, I.N, , , 


CN.T.R.L 


5,0 j 


2 


, , 


M 


' 




1. 










































0.3 


n.a.m.'e.o.n.e. 


, 








o_^ 


9 








































\ 


4 

1 i 


N.A.M.E.T.W.O. . , 










1,0 




1,9 






































) 


5 


N.A.M.E.T.H.R.E.E. 










2£ 




2,9 








































6 


N.A.M.E.F.0.U.R, , 










3.0 


1 


3,9 






































? 


7 


i i i , i i , . , 










4,0 


, 


4,9 






































\ 


8 


0.R.I ,G,I ,N, . , , 


C.N 
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L 












































) 
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• i i i ■ i i i , 


, 








1 1 




i i 
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\ 



Since the index words are reserved only from the point at which the origin 
statement appears, this usage should normally appear at the beginning of the 
program or following a litorigin statement. 



Additional Examples 



The coding on the following two pages illustrates some of the ways in which 
the assignment of locations may be manipulated through the use of origin and 
litorigin control statements. 
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PAGE AA PROGRAM CNTRL 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMYO81 CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 1002 

02 1003 

03 1004 

04 1005 

05 1006 

06 1007 

07 1008 

08 1009 

09 1010 

10 X 

11 1011 

12 1012 

13 1013 

14 1014 

15 X 

16 1015 

17 1016 

18 1017 

19 1018 



ILLUSTRATION OF ORIGIN AND LITORIGIN 
NOP 



700 



0400 



ORIGIN 



LI TORIGIN 



ORIGIN 

LABEL 

LITORIGIN 



ORIGI N 



800.COUNTER1 

+ 1 

COUNTERl+10tCOUNTER2 



CONTROL STATEMENTS. 

ASSIGNED BY UNNAMED COUNTER. 

UNNAMED COUNTER SET TO 700. 

ASSIGNED BY UNNAMED COUNTER. 

ACTUAL ADDRESS IN LABEL. 

ASSIGNED BY UNNAMED COUNTER. 

SET TO 800. 

BY COUNTER1. 

ASSIGNS LITERAL. 



C0UNTER1 
ASSIGNED 
COUNTER2 



ASSIGNED 
C0UNTER2 



BY COUNTER2. 

INCREASED BY 20. 
ASSIGNED BY COUNTER2. 
COUNTER3 ASSIGNS LITERAL. 



LI TORIGIN 



20 
21 

22 1019 

23 1020 

24 1021 

25 1022 

26 1023 

27 1024 

28 

29 1025 

30 1026 

31 1027 

32 1028 

33 1029 

34 1030 



CNTRL 

NOP 

NOP 

NOP 

CNTRL 

ZA1 

CNTRL 

LITERALS 

+ 1 
ZA1 +2 

CNTRL *+20»COUNTER2 
ZA1 +2 

CNTRL LABEL+90»COUNTER3 
LITERALS 

+ 2 
ZA1 +3 

CNTRL CUUNTER3-50»COUNTbR4 
ZA1 +4 

CNTRL *+1000.S SPECIAL 
LITERALS 

+ 3 

+4 

+5 ASSIGNED BY SPECIAL COUNTER. 

COUNTER3iCOUNTER3 *BACK TO COUNTER3. NOTE BELOW. 

+5 ASSIGNED BY COUNTtR3. 

MAX (800. LABEL t COUNTER1 . COUNTER2. COUNT ER4»*) » COUNT ER5 

+5 ASSIGNED BY COUNTcR5. 

SET UNNAMED COUNTER TO MAX ALL BUT S COUNTER. 



00001 

00002 
00003 
00004 

00005 
00006 00 
00007 



0325 -0100090000 

0700 -0100090000 
0400 -0100090000 

0701 -0100090000 

0800 +1300000811 



0811 +1 

0812 +1300000923 



0833 +1300000923 



ASSIGNED BY COUNTER3. 
*SEE NOTE BELOW. 
ASSIGNED BY C0UNTER4. 
COUNTER USED TO ASSIGN LITERALS, 



35 X 

36 1031 

37 1032 

38 1033 



ZA1 
ORIGIN CNTRL 

ZA1 
ORIGIN CNTRL 

ZA1 
LITORIGIN CNTRL 

LI TERALS 
+ 5 
NOP 
ORIGIN CNTRL *.COUNTER5 

ZA1 +5 
ORIGIN CNTRL MAX ( C0UNTER5 »S ) 

ZA1 +5 
Ll.TORIGIN CNTRL 8000. COUNTERS 
LITERALS 
+ 5 
NOTE THAT THE USE OF ADDRESS 
COUNTER3 



ASSIGNED BY UNNAMED COUNTER. 
UNNAMED COUNTER IN COUNTER5 
ASSIGNED BY C0UNTcR5. 
SET COUNTERS TO MAX NAMED. 
ASSIGNED BY COUNTERS. 
COUNTER5 ASSIGNS LITERAL. 



ADJUSTMENT IN LINE 17 DID NOT AFFECT 



00 0927 +5 

0928 -0100090000 



00012 



0929 +1300008000 
1878 +1300008000 



00013 00 8000 +5 



0811 



00008 


00 


0923 
0924 


+ 2 
+1300001876 


0923 


00009 




0875 


+1300111876 




00010 


00 


1876 


+ 3 


1876 




11 


1876 
1877 


+ 4 
+1300000927 


1876 


00011 




0925 
0926 


+1300000927 
+1300000927 





0927 



8000 



ORIGIN COUNTER 


INITIAL VALUE 


LAST VALUE 


HIGHEST VALUE 


LOWEST VALUE 


* UNNAMED* 


0325 


0928 


0928 


0325 


COUNTER1 


0800 


0800 


0800 


0800 


COUNTER2 


0811 


0833 


0833 


0811 


COUNTER3 


0923 


0924 


0924 


0923 


COUNTER4 


0875 


0875 


0875 


0875 


COUNTER5 


0926 


1878 


1878 


0926 


S 


1876 


1877 


1877 


1876 



BRANCH Control 



The branch statement will cause the processor to produce an execute card con- 
taining an unconditional Branch instruction. When encountered during the 
loading of the object program, this instruction will cause the normal loading 
process to stop and a branch to be executed to a specified location. 



Source Program Format The branch statement should be written as follows: 



Line 

|3 51 



2 



Label 



Operation 
!§ 22 



B.RAN.C.H, , , 



CN.T.R.L 



21 



_2§_ 



30 



_35_ 



OPERAND 
12__ 



AD.D.RE.S.S. 



-*L< 



Processing Techniques 



branch and cntrl must be written exactly as shown, address is the actual, *, 
or symbolic address to which the branch is to be made after the preceding por- 
tion of the program has been loaded into storage. If an * or symbolic address is 
used, address adjustment and/or indexing may be specified. If an actual address 
is used, indexing only may be specified. 

A branch statement may be used in conjunction with an origin statement to 
execute portions of a program already loaded into storage and to overlap these 
with other instructions, as in the following example: 



Line 

3 S 


Label 

6 15 


Operation 

IS 20 


OPERAND / 

21 25 30 33 40 45 ] 


0, I , 


START 










( ,F. I.R.S.T. . I. N. STRUCT TON t ) 


2 


— i i i i__ 










.... i i ' i 


















3 


— 












_ i j • i 


















4 


— i i i i__ 














■ • i 


























\ 


5 


— i — i — i — i — i 














i ■ 




























6 


XYZ. 












B 


t 




L,0.A.D,P 


R.O.G, 






















7 


B.R.A.N.C 


H 










C, 


N,T,R 


L 


S.T.A.R.T 
























08 


O.R.I .G.I 


N 










£ 


N,T,R 


L 


START 


,.C0,U 


N.T.E.R. . 


















\ 


9 


i — i i i i__i 














1 L_J 




1 1 L— » 1 


, i i 





















■^ 



When the resultant object program is being loaded, the loading operation will 
be interrupted by a branch to the location assigned to the symbol start, fol- 
lowed by the execution of the instructions from start through the instruction 
located at xyz. The instruction located at xyz will cause a branch back to the 
load program, which will then resume the loading of the remainder of the object 
program. Since the following entries were assigned locations beginning again 
with the location start, they will overlap the instructions which have already 
been executed. (In this example, it is assumed that the starting location of the 
load program is symbolic location loadprog. ) 
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Additional Examples 



The following coding illustrates various operands which might appear in a 
branch statement: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND 

21 25 30 35 40 


. 


1 


BRANC.H, 


C.N.T.R.L 


* 








J 


2 


BRANCH 




C,NT,R,L 






I . I I 






. \ 


3 


BRANC.H, 




C.N.T.RL 


*, + ±.-hX.l 










... 


4 


BRANCH 




C.NT.RL 


*+X,W.0.R,D 




i 1 . I 






. J 


5 


BRANCH, 




C.N.T.R.L 


3,2.5 




111. J 1 






, ,) 


6 


BRA NC.H 




CNT.R.L 


o+.x.i 




I I 1 i _j 






i i A 


7 


B.R.A.N.C.H 




CN.T.R.L 


O+.X.WO.R.D 




I 1 I 1 






, , ,| 


8 


BR A NC.H 




C,N,T,R,L 


LABEL 










, , / 


9 


BR A,N C,H 




CNT.R.L 


L.A.B.E.L.+.1.0, , . , 




■ II. 






, ,C 


1 


BRANC.H, 




CN.T.R.L 


L.A.B.E.L.+.X.8.4, . , 




i... 






1 ' 'J 


1 ! 


B.RANC.H 




CNTR.L 


L.A,B.E,L. + ,2+.X.W.0,RD, , 








' '( 


1 2 


ill: J 1 — 




, ■ , i 


, , , 1 . I 1 I 1 A 1 i 1 1_ 








, ■, ^ 
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END Control 



The end statement, is an indication to the processor that the end of the source- 
language program has been reached. When this statement is encountered, the 
processor will assign locations to all material generated since the last previous 
litorigin statement or since the beginning of the program if litorigin was not 
used. In addition, it then produces an execute card containing an unconditional 
Branch instruction which, when encountered at the end of the loading of the 
object program, will cause a branch to a specified location. 



Source Program Format The end statement may be written as follows: 



Line 
3 5 


Label 

6 


15 


Operation 
16 20 


21 25 


30 


OPERAND 

35 40 


«?/ 


1 , 


EN.D 


C.N.T.R.L 


AD.D.RE.SS J 


2 


END, . , 


CNT.R.L 




3 


i i iii... 


jiii. 


■ , . , , . i . , , i i i , i i\ 



end and cntrl must be written exactly as shown, address is the symbolic, actual, 
location to which the branch is to be made after the entire object program 



or 



has been loaded into storage. It should be noted that a branch statement may 
not ordinarily be used for this purpose since it would cause the branch to occur 
before the generated material (if any) was loaded. If an * or symbolic address 
is used, address adjustment and/or indexing may be specified. If an actual 
address is used, indexing only may be specified. 



Processing Techniques 



If the end statement is used, it must be the last entry in the program. If it is not 
used, or if it is used with a blank operand, the processor will assign locations to 
all generated material and then generate an unconditional branch to an address 
specified to the Compiler Systems Tape. This address is originally 0325, but it 
may be altered as described in the 7070/7074 Data Processing System Bulletin 
"ibm 7070/7074 Compiler Systems: Operating Procedure," form J28-6105. 
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Additional Examples 



The coding on the following page illustrates various operands which might 
appear in an end statement. 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND 

21 25 30 35 49 






J 


1 , 


E,N,D , 


, , , 


C.N.T.R.L 


* 


....1 


2 


END 










C,N,T,R,L 


*.+.!. 




















1 


3 


E.N.D 










CN.T.R.L 


K-.5.+ .X.W.0.R.D. 
























4 


E,N,D 










CNT.R.L 


^X,l,5 


























V 


5 




E.N.D 










CNT.RL 


32.5 


























^ 


6 




E.N.D 










C.N.T.R.L 


O.+ .X.W.O.R.D. , . 




























7 




E.N.D 




i 






C.N.T.R.L 


O.+.X.l.l 




























8 




END 










CNTRL 


L.A.B.E.L 


























I 


9 




E.N.D 




■ 






C,N,T,R,L 


LAB,E,L-.1,0, , 


























\ 


1 




E.N.D 




■ 






C.NT.R.L 


L.AB.E.L.+ .X.W.O.R 


D 
























J 


1 1 




E,N,D 










C.N.T.R.L 


LAB.E.L.+ .5.+ .X.4 


5 
























V 


1 2 




E,N,D 




i 






C.N.T.R.L 




























,( 


1 3 




■ i 




• 






: i i i 


■ iiiiijii 


























,( 
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XRESERVE Control and SRESERVE Control 



References to the actual address of an index word or electronic switch may be 
made at the discretion of the programmer. Normally, however, he will use 
symbolic names which the compiler will then assign to actual addresses. 
xreserve and sreserve statements cause the processor to reserve index words and 
electronic switches, respectively, so that they will be "unavailable" when this 
assignment is made; i.e., symbolic names will not be assigned to the address (es) 
reserved. 



Source Program Format The xreserve and sreserve statements may be written as follows: 



Line 



XRESERVE, 



Label 



X.R.E.S.E.RV.E, 



S.R.E.S.E.R.V.E, 



Operation 
!6 |0 



C.N.T.RL 



C.N.T.R.L 



CN.T.R.L. 



CN.T.R.L. 



OPERAND 

_35 40 



N. jn . N . g , 



N, 



-,N, 



^ 



^ 



. .e.t.c. 



,,e , t,c , , 




The entries xreserve, sreserve and cntrl must be written exactly as shown. 

The operand field contains the one- or two-digit number of the index word(s) or 
electronic switch (es) to be reserved, or is blank. Continuation cards, described 
on page 17, may be used as necessary. The entry N 2 -N 3 reserves all of the 
index words or switches between and including N 2 and N 8 . When this form is 
used, N 3 must be a number greater than N 2 . The two forms of operand entries 
may be used exclusively or intermixed freely on each card. A blank operand 
will cause all of the index words or electronic switches to be reserved. 



Processing Techniques 



As described on page 19, the xreserve and sreserve statements provide one of 
several methods of making index words or electronic switches unavailable for 
assignment to symbolic names. Unlike some of the other methods described, 
xreserve and sreserve statements affect the availability table only when they 
are encountered in the statement-by-statement processing during the Phase III 
pass which assigns index word and electronic switch addresses. 

xreserve and sreserve statements are usually placed at the beginning of a 
source program. However, they may also appear at a later point(s) in the pro- 
gram. When this is the case, it is possible that a previous symbolic index word 
or electronic switch name may already have been assigned to the address speci- 
fied. The programmer must therefore be cautious in the use and placement of 
these statements. 
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Additional Examples 



The following coding illustrates various operands which might appear in an 
xreserve statement: 



Line 
3 5 


Label 

6 15 


Operation 

16 20 


OPERAND f 

21 25 30 35 40 45 ) 


1 , 


X.R.ESE.R.V.E 






C.N.T.R.L 


1 ■ ^ 


2 


XR.E.SE.RV.E 






C.N.T.R.L 


9,0. 




























3 


X.R.ESE.R.V.E 






CN.T.R.L 


3,. .4 


.7.9,. 


2 






















- t 


4 




X.R.E.S.E.R.VE 






CN.T.R.L 


9.-2 


1, . . 


























) 


5 




X,R,E,S,E,R,V,E 






C,N,T,R,L 


1,-4 






7,9 


-.8.0,. 


4,5 — 


4 


7 














\ 


6 




X.RES.E.R.V.E 






C.N.T.R.L 


1.3 


-4,, 7 




9,, 


1.1. ,1 


5.,,i 


3 




1 


7 


— 


1 


9 




2,1 i 


7 




i i i i i i i 






jiii 


2,3,, 


2,5,, ,2 


7 


,,2 


9.,, 3,1 


-3,4 




3 


7 


— 


3 


9 




5 


0, J 


8 




XR.E.SE.RV.E 






CN.TR.L 
































9 




L_l 1 1 1 1 1 1 






— i i i i 


' ' ' 


■ i . 




i 


i i , 


■ > 





















The following coding illustrates various operands which might appear in an 
sreserve statement: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45] 


o. I , 


SRESE.RVE 


C.N.T.R.L 


2 \ 


2 


SRESE.RVE 


CNTRL 


29 


• • 














( 


0.3 


SRESE.RVE 


CN.T.R.L 


3_^ 


4,,,1 


5,i 


7 














^ 


4 


SRESE.RVE 


C NT.R.L 


9" 


2,1, 


















j 


5 


SRESE.RVE 


ON TRL 


1- 


4.7 


-8 
















( 


6 


SRESE RVE 

___L . 1 1 , 1,1! ! 


CNTRL 


i^ 


V,5 


,7 


» 


9 


» 


11 


.!3 


,1,5,, 




) 


7 


1,1,1.,., 




2,1 


.,25 


-2 


7 














\ 


8 


SRESE.RVE 


CNTRL 




















. S 


9 


,i i i . . 


L , 




i i 












.,,:{ 
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XRELEASE Control and SRELEASE Control 



Through the use of xkelease and srelease statements, it is possible to make 
index words or electronic switches, respectively, available for later assignment, 
even though they may have been reserved through some previous assignment or 
listed as unavailable in the initial availability table. Thus, even though a given 
section or phase of a program may make extensive use of symbolic index words 
and switches, the use of the xrelease and srelease statements will cause the 
processor to re-establish the availability of these index words and electronic 
switches for later assignment. 



Source Program Format The xkelease and srelease statements may be written as follows: 



Line 



0,1 , 



2 



3 



4 



5. 



6 



7 



Label 



X,RE LE.A.S.E, 



. XR.E.LE.AS.E, 



SR.E.L.E.AS.E, 



SRELEASE, 



Operation 
J6 20 



iL 



CN.T.RL 



CNT.R.L 



CN.T.R.L 



-15_ 



OPERAND 
.35 12__ 



45 



N, lll .N ia ,-,N, 3 



CN.T.RL 



N.j.i.iy 



. X.WORDA,. XW.OR.D.B. ..etc,. , 



_J 1 I I L- 



.S.W.I.T,C,H,A...S.WI.T,C,H,B,, 




Processing Techniques 



The entries xrelease, srelease, and cntrl must be written exactly as shown. 
The operand field contains the symbolic name or one- or two-digit number of 
the index word(s) or electronic switch (es) to be released. Continuation cards, 
described on page 17, may be used as necessary. The entry N 2 -N 3 releases all 
of the index words or switches between and including N 2 and N 3 . When this 
form is used, N 3 must be a number greater than N 2 . The various operand entries 
may be used exclusively or intermixed freely for each statement. A blank operand 
will cause all of the index words or electronic switches to be released. 

As noted on page 19, the processor uses an availability table to determine the 
assignment of symbolic names to actual index words and electronic switches. 
This availability table differentiates between the index words and electronic 
switches which have not yet been assigned in a given program, and those which 
have been assigned but subsequently released. A released index word or electronic 
switch is not reassigned until all others have been assigned for the first time. 

A given symbol is always assigned to the same index word or electronic switch, 
even if that particular index word or switch is subsequently released for possible 
later assignment to another symbolic name. 

Since the xrelease and srelease statements are designed to allow the assignment 
of more than one symbolic name to the same location, it is imperative that the 
programmer use these entries with great care. Otherwise, conflicting use of the 
same index word or the same electronic switch may result in inconsistent program 
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results. These statements should be used only where the programmer is certain 
that the index word or electronic switch is no longer required in its previous 
role, e.g., at the end of a given phase in a multi-phase program, perhaps following 
a litorigin statement. It should be noted that where more than one name is 
made equivalent to a given index word or electronic switch, an xhelease or 
srelease statement referring to any one of the names (or to the actual address 
itself) has the effect of a statement referring to all of the equivalent names. 



Additional Examples 



The coding on the following page illustrates various operands which might ap- 
pear in xrelease and srelease statements. 



Line 
3 


Label 
56 i 


Operatior 
516 20 


OPERAND Ba$ic Auhwwl j 






21 25 30 35 40 45 50 


55 60 






1 , 


X.R.E.L.E.A.S.E. 


CN.T.R.L 


* 




2 


X.R.E.LE.AS.E, , 


C.N.T.R.L 


9.0 














3 


X.R.E.L.E.A.S.E. 


C.N.T.R.L 


3... 4,. .7.9 .2 














4 


X.R.E.L.E.ASE , 


C.N.T.R.L 


9-2.1 
















5 


X.R.E.L.E.AS.E, . 


CN.T.R.L 


l.-.4,..X.W.0,R,D,A , , , 
















6 


X.R.E.L.E.AS.E, . 


CN.T.R.L 


X.W,0,R,D,B.,.X,W,O.R,D,C, , , , , 
















7 


X.R.E.L.EAS.E, , 


C.N.T.R.L 


X,W,0,R,D.D..X,0-.2,0... 3.0,-3,5 
















8 


X.R.E.LE.AS.E 


C.N.T.R.L 


X,W,0.R,D.E.,,6-,8. ..X.W.OR.DF , 


7,9,, 


1.0-.1.2. ..,,,, 












9 


X.R.E, LEASE, , 


C.N.T.R.L 


1, ,,i,0, ..X.WO.R.D.N.A.M.E.A. . ,1,1 


-,i,3 


.,X,W,0,R,D.N,A,M.EB, 


,X,W.0.R.D.N.A( 


H1.E.I,, 


xwo 


R,D,N,A 


MED , 


1 


1 1 1 1 1 1 ! ' ' 


, i ; , 


X.W.O,R:D.N.A,M,E,E...X,W.O.R 1 D t N,A 


M,E,F 


,,X,W,O.R,D,N,A,M.E,H., 


,2,5,..X,W0.R[ 


),NA,M 


FG 


2,9-3 


1 , 


1 1 


1 1 1 1 1 i 1 1 L_ 


, , , 


X.W.O.R.D.N.A.M.E.L. , , . , , 
















',*. 


X.RE.LE.AS.E, 


C.N.T.R.L 


X,W0,R,D.A 














' 


i 3 


— i — i — i — i i i i i i_ 


— i i i i_ 


_i — i — i — i_i_j. i i i i i i i i . , , 
















1 4 


S.RE.LE.ASE, , 


C,N,T,R.L 


2 












' 




15, 


S.RE.LE.ASE 


CN.T.R.L 


2 9 
















1 6 


S.R.E.LE.A.S.E, , 


C.N.T.R.L 


,3| , |4,, 4tj5 l1 ,7, ,,,,,,,,, 












i i i_i 




1 7 


S.R.E.LE.A.S.E, . 


C.N.T.R.L 


9 - 21 












— i — i i i 




1 8 


S.R.E.L.E.A.SE, . 


C.NT.R.L 


1,-4, ,. S.W.I, T.C.H. A 












— i — i i i 


— ' 


1 9 


S.RE.LE.ASE, . 


C.NT.R.L 


S.W.I.T.C.H.B...S.W.I.TC.H.C, , 












— • — i — ■ ' 




2,0, 


S.R.E.LE.A.S.E, , 


C,N,T,R,L 


S.W.I.T.C.H.D,. ,1,0 -2,0,.. 2,7-2 


9, , 










— i — ; i l 


. , , 


2 1 


S,R,E,L,E,A,S,E , 


C,N,T,R,L 


S I W,I,T,C.H.E. 1 ,2,-.7.,.S,W,I.T.C,H 


F,t,2 


9, .1,1,-1,5. . , , , 








1 1 1 L 




2 2 


S.R.E.LE.A.S.E. 


C,NT,R,L 


l 1 .,3,..S,W.I.T,C,H,l..,S.W.I.T l C.H l 


F.,,7, 


-1,1,.,S,W,I ,T,C,H.C . 


, s.w.i. Tr.Hn 


S W i 


r c h 


e ? a 


' ' '~ 


2 3 


— i 1 1 , 1 1 : ' i 


. , . , 


S,W,l,T,C.HM, i S,W,IT,C.HG,. SW 


l,T,C, 


H.H,. S.WITCH.A . SWITCH 8 . . S 


W 1 T 


r. m k 


Ci.CU, ,, , , 


2 4 


, , . . , : 


. -, i 


SWI TC.H L , 2 9. , 








-*-» — i — i — ; — i — , — j — 


2 5 


SR.E LEASE 


CNTRL 


SWI TC.H.M. 


-j — . . — i — i — i — . i 


1 — 


, , , i . , 


■ ■ ■• 


' ' ' • ' ' ' ■ ' ■ ' ' ■ — - — i— ; . , ., ■ 


j 1 — ; — 1 — i — l.i : i 

-i . . 1 L i 
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Imperative Statements 



Symbolic Machine 
Instructions 



Autocoder imperative statements include low-level statements, called "symbolic 
machine instructions," which are very much like the 7070 machine language 
operation codes, and high-level statements, called "macro-instructions," which 
bear no resemblance to machine language. While the symbolic machine instruc- 
tions offer flexibility and control over each detail of the coding, the macro-instruc- 
tions provide a more powerful and convenient way to state a problem. The 
macro-instructions usually produce a number of machine language instructions 
in the object program. 

Each macro-instruction and symbolic machine instruction has a unique mnemonic 
operation code consisting of from one to five alphameric characters. For example, 
the Autocoder equivalents of the Branch and Make Sign Plus machine commands 
are b and msp, while for the Compare and Set Switch macro-instructions, comp 
and setsw are used. 

When a symbolic machine instruction is encountered in a source program by the 
7070 Autocoder processor, it is converted into a 7070 machine language command. 
The symbolic machine instructions are sometimes referred to as "one-for-one" 
instructions since each unique mnemonic representation will cause one 7070 
operation to be inserted in the object program. For example, the Branch, Lookup 
Lowest, and Index Word Load and Interchange commands have the correspond- 
ing Autocoder mnemonics b, ll, and xlin. Each time the 7070 Autocoder 
processor encounters these mnemonics in the source program it will insert the 
machine language operation code +01, +66 and —48, respectively, into the 
object program. An alphabetic list of all the Autocoder symbolic machine 
instructions, indicating what is permissible in the operand field and the order 
in which the information must be entered on the coding form, is contained in 
Appendix D. 

The correct order of entry for operand parameters of symbolic machine instruc- 
tions is the operand address followed by field definers, address adjustment, and 
indexing, as illustrated by the following examples: 



Line 

|3 51 



Label 

6 15 



Operation 
16 20 



21 25 



OPERAND 

30 35 40 



I , 
2 



CD, 



FIE, LP 



(.2,).+.4,+,1,W,0 



R,D,,,6, . 



3 
0,4 
5 



X A, 



WO.R.D 



F,l ,E,L.D,A,+,4+ 



1 ,W0,RD. 



Assume that fielda has been defined as word 2000 and that the indexing portion 
of index word iword contains 0100. In the first example, digit position 2 of 
location 2104 will be compared to a "6." In the second example, 2104, considered 
plus, will be algebraically added to the number 0100 in the indexing portion of 



IWORD. 
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Macro-Instructions 



The ibm Reference Manual "7070 Data Processing System," form A22-7003-2, 
contains numerous illustrations of how symbolic machine instructions are written 
and gives examples of the machine language instructions which will be assembled 
from them. 

The following is a section of a payroll routine which further illustrates the use 
of symbolic machine instructions. Note that remarks may appear anywhere in the 
operand, provided two blank spaces separate the remarks from the operand of the 
instruction. 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 ) 


0,1 , 


CALCT.AX. , 


Z.A.3, 


T.A.X.C.L.A.S.S 0.ET.E.R.M.I.N.E. IF . , ) 


2 








M, , , , 


-1.3,00 








P,A,Y. ,I,S , , . , \ 


3 








A2, , , 


GROSS 








TAX.AB L,E ) 





4 








B.M.2, , 


NO.TAX 








BRANCH, .I.F, ,N,0, ,T,A,X | 





5 


i i 1 i I : 






Z.A.3. , 


9,9,9,2, 








/ 





6 










M 


+ .1.8. . 








CALCULATE. TAX, , , I 





7 










S.R.R, . 















8 




ii i<ii 






B, , , , 


* + 2, , 













9 




N.O.T.AX, 






S,2, , , 


9,9,9,2, 








CLEAR, ,A,C.C,U,M,2, . , A 
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The use of macro-instructions described, below, will make possible the coding 
of a source program with only limited use of symbolic machine instructions. 

A macro-instruction represents a single operation entry on the Autocoder coding 
sheet that is converted during assembly into a sequence of machine instructions. 
Autocoder macro-instructions, including those used for input/output operations, 
free the programmer to a large extent from attention to machine details such as 
location assignment and data flow in carrying out the operations required by 
frequently encountered problems. The user may extend Autocoder by adding 
appropriate macro generators to the system to process newly-created macro- 
instructions. 

The macro-instructions fall into several categories, as follows: 

Category Macro-Instructions 



Input/Output: 
Arithmetic: 
Decision Making: 
Initialization: 
Data Movement: 
Reference: 



OPEN, GET, PUT, PUTX, CLOSE, END 
ARITH 

comp, cycle and RECYC, decod, logic, zsign 
setsw, zero, fill 
edmov, move, shift 
snap 



A full discussion of the input/output macro-instructions can be found in the 7070 
Data Processing System Bulletin "ibm 7070 Input/Output Control System," form 
J28-6033-1. The programmer should not attempt to use these macro-instructions 
without careful study of the material contained in that bulletin, especially the 
diocs, dtf, and duf entries. For convenient reference, however, the formats and 
brief descriptions of six of the principal input/output macro-instructions are in- 
cluded in this manual. 
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Programming features common to all macro-instructions are outlined immediately 
below. A detailed description and the format of each individual macro-instruction 
follow. Examples are included showing typical source-program statements and 
the coding generated from them by the macro generators. 

Label. A macro-instruction which will be referred to elsewhere in the program is 
written with a label. In all other cases, the label column is blank. The label may- 
be any symbolic label acceptable for a symbolic machine instruction, i.e., begin- 
ning with a letter, possibly followed by any combination of up to nine letters or 
numbers (no special characters). This label will reference the first instruction 
generated from the macro-instruction. 

Certain labels are forbidden. The following sets of characters have special mean- 
ings when used in the operands of the macro-instructions specified. They should 
not, therefore, be simultaneously employed as labels in programs using these 
macro-instructions : 



Characters 




Macro-Instructions 


ABS 






ARITH, COMP 


AND 






LOGIC, FILL 


E 






LOGIC 


G 






LOGIC 


IN 






PUT, PUTX 


L 






LOGIC, SHIFT 


LC 






SHIFT 


LS 






SHIFT 


NOT 






LOGIC 


NOZERO 






ZSIGN 


OR 






LOGIC 


R 






SHIFT 


RR 






SHIFT 


RS 






SHIFT 


TO 






EDMOV, GET, MOVE 


WITH 






FILL 


The name of any 




function 


in the 






Macro Table 




ARITH 



Actual Addresses. The operand may not include actual addresses, except where 
specifically allowed by individual macro-instructions. 

Field Characteristics. When a program is assembled, it is not known what the 
contents of the various fields will be at object program time. Therefore, all macro 
generators must proceed on the assumption that these contents will conform to 
the characteristics of the field as defined by some declarative statement. If a field 
has been defined by a da subsequent entry as alphameric, instructions will be 
generated to treat the contents as if they were alphameric, and difficulties may 
arise if, during the object program, numerical information has been stored instead. 
The same is true if alphameric information is put into numerical fields, or if the 
numerical modes are not distinguished from each other. 

Asterisks^*). When a macro-instruction is written, the programmer does not 
know how many machine instructions will be generated in its place; therefore, 



Imperative Statements 105 



addresses using the asterisk symbol are not acceptable. For example, if a macro- 
instruction must reference the next following instruction of the source program, 
this should be done by means of a label attached to that instruction, not by 
the address * + 1. The same considerations make it impossible to do address 
arithmetic on a macro-instruction label or on any other label by amounts that 
would carry the address across a macro-instruction. 

Alphameric Literals. Alphameric literals may appear in macro-instruction oper- 
ands, provided they are meaningful to the specific instruction involved. It is not 
possible, however, to write an alphameric literal that includes @ as one of its 
characters. The scan for macro-instructions, sensing an operand like @aaaaa@ 
aaaa@, would take the second @ to signal the termination of the literal. If such 
a constant is required by the nature of the program, it must be entered as a sub- 
sequent entry under a dc header line; it may then be referenced in the operand 
of the macro-instruction by its symbolic name. 

Address Modification. Although field definition is not permitted within macro- 
instruction operands (except through the device of referencing a label of a da, 
dc, or dline subsequent entry specifying field definition), indexing and address 
adjustment are permitted. The conventions for writing these, however, differ 
from those applicable to symbolic machine instructions. In particular, indexing 
precedes address adjustment if both are present. 

Indexing may be specified by referencing the symbolic name of index words or 
their actual one- or two-digit number. When actual indexing is used, the number 
of the index word may not be signed, nor should it be preceded by an x. Address 
adjustment must be signed plus or minus; it is this which distinguishes one- or 
two-digit adjustments from indexing. 

Address modifiers, both index words and address adjustment, must be enclosed 
by parentheses. The left parenthesis should be in the column immediately follow- 
ing the last character of the address being modified. No blanks should occur any- 
where within the entire address modification. If both indexing and address ad- 
justment are used, indexing precedes address adjustment, and one set of paren- 
theses should enclose them both. 

The following are acceptable examples of modification for macro-instruction 
operands: 

Operand Explanation 



table ( row ) The symbolic address table is indexed by the index word 

ROW. 

list( +34) The symbolic address list is incremented by 34. 

list(34) The symbolic address list is indexed by index word 34. 

chart (line -10) The symbolic address chart is decremented by 10; then 

the address is indexed by the index word line. 

array( 29+17) The symbolic address array is incremented by 17; then 

the address is indexed by the index word 29. 

Continuation Cards. Since macro-instructions frequently have long operands, it 
will often be necessary to use continuation cards to accommodate all the required 
parameters. All macro-instructions are limited to five cards, i.e., four continuation 
cards in addition to the header card. 
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On a continuation card the label and operation columns must be blank, and the 
continuation of the operand portion must begin in column 21; i.e., it must be left- 
justified in the operand column of the coding sheet. The entire operand, columns 

91J7K mtiv hf n«pd 

In the header card or continuation cards (other than the last), each operand 
need not extend across the entire operand column; it may end with the comma 
following any parameter and continue on the succeeding card. 
In two cases, however, the operand can not be broken off in the middle to be 
distributed over two cards. These exceptions are: 

1. Alphameric Literals. Alphameric literals may be up to 120 characters in length 
and may, in consequence, have to be distributed over two or more cards. This 
is permitted, provided that the operand columns of all cards but the last are 
filled to the very end, i.e., through column 75, and that the continuation begins 
in column 21 of the next card. Blanks which are to be included in the alpha- 
meric literal are regarded as part of the literal and may appear in any column, 
including column 75 and column 21. Any extraneous blanks or remarks which 
appear at the right end of any card before the terminal @ character will be 
regarded as part of the literal and these characters will be incorporated into 
the literal. 

2. Address Modification. When a parameter is modified by indexing and/or 
address adjustment, separation at the end of a card may be made as follows: 
The name of the parameter is placed on the first card. The address modifica- 
tion which follows may be on the same card or it may be broken off at any 
point following the left parenthesis (except within the actual or symbolic 
addresses involved) and continued on the next card beginning in column 21. 
If the last character of a parameter falls in column 75, then the left parenthesis 
may be placed in column 21 of the next card. 

The examples on the following page illustrate the method of separating alpha- 
meric literals and address-modified parameters on continuation cards. Examples 
1 and 2 illustrate alphameric literals; examples 3-7 illustrate address modification. 

Punctuation and Spacing. In general, each macro statement has its own conven- 
tions of punctuation, which are stated in detail in the descriptions of the indi- 
vidual instructions. Illegal characters or other faulty punctuation will be regarded 
as an error condition. For all macro-instructions, any entry in an operand portion 
of the coding sheets that is preceded by two blanks will not be processed, unless 
the blanks are inside an alphameric literal. As a general rule, it is recommended 
that no blanks be written, especially following commas, equal signs, or other 
punctuation marks, unless a specific demand is made under "Source Program 
Format" in the description of the individual macro-instruction (e.g., in the move 
statement on either side of the operator to) or when blanks appear in address 
modification as a result of the use of continuation cards. 

Remarks. Remark entries may be made at the end of the operand portion of the 
coding sheet just as with symbolic machine instructions. At least two blanks must 
precede the first character of a remark entry. These entries, which may include 
the @ character, will be listed but not processed. If a macro-instruction requires 
continuation cards, remarks are not necessarily confined to the last card; param- 
eter entires, except for alphameric literals, may be terminated wherever the pro- 
grammer desires, subject to the rules stated under "Continuation Cards," and 
continued on the next card, leaving room for remarks at the right end. Attention 
is called to the fact that macro-instructions are limited to a total of five cards for 
each instruction; if an operand is very long, remark entries on the header or con- 
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tinuation cards may waste needed space. In such a case, remarks may be entered 
on separate comments cards immediately preceding or following those containing 
the macro-instruction proper. 

Error Conditions. If the macro generator detects an error condition in analyzing 
the source statement, an error or warning message will be issued. Warning mes- 
sages inform the programmer that the machine instructions being generated may 
have certain unintended effects in the object program, such as accumulator over- 
flow in arith, branching to the same location regardless of the outcome of the 
test in zsign, etc. The programmer should recheck his use of the macro-instruc- 
tion to make sure that he has employed it correctly and that the special condition 
will either not arise in his program or that it is intentional. Error messages are 
issued if a programming error has made it impossible for the macro generator to 
generate meaningful instructions on the basis of the source statement; in such a 
case, a nop will be generated to aid in patching. Assembly will not be interrupted. 

Frequently a macro generator will pass a portion of its work on to another gen- 
erator by putting out what is called a "lower-level" macro-instruction. This will 
be automatically assembled by the processor, with all generated instructions 
properly sequenced. The possibility exists, however, that a parameter passed to 
a lower-level macro generator for processing could bring about an error con- 
dition in that generator. In that case, the error message issued would be one from 
the lower-level generator. The following list shows some cases in which macro 
generators may call others; it may aid the programmer in interpreting such error 
messages: 



Source Statement 


Lower-Level Macro-Instruction 


ARITH 


Any function in the Macro Table 


COMP 


ARITH 


EDMOV 


MOVE 


LOGIC 


COMP, ZSIGN 



Thus, if writing a logic statement has resulted in an error message that is not 
listed or explained in the logic macro-instruction description, the programmer 
should consult the descriptions of comp and zsign, and thereafter, since comp 
in turn may have called arith, that of arith, etc. 

Hardware Usage. Instructions generated from a macro-instruction may affect 
the following: (1) the contents of the three accumulators, (2) index words 93 
and 94, in addition to such other index words as may be required ( these will be 
assigned in the same fashion as are other symbolic index words), (3) latches as 
implied by the intent of the macro-instruction ( Low, Equal, High for comp, Ac- 
cumulator Overflow, Field Overflow, and Sign Change for arith, etc.), (4) cer- 
tain temporary storage areas reserved for working space, and (5) those fields or 
switches on which the macro-instruction is to operate, i.e., that are specifically 
named in the operand of the instruction in question. Wherever possible, these 
fields and switches will be treated non-destructively; thus logical variables in 
logic, input fields in arith, the "from" fields in move, etc. will preserve their 
contents during the execution of the generated instructions unless the contrarv 
is indicated (e.g., the "to" field and the "from" field in shift are identical). Such 
fields or switches as are intended to be affected ( the result field in arith, switches 
in setsw, etc. ) will, of course, generally lose their previous contents, snap will 
leave the priority mask set to "allow," regardless of its former condition. 
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Since macro-instructions will often produce field overflows and sign changes, it 
is necessary to precede all programs employing macro-instructions with smsc 
(Sense Mode Sign Change) and smfv (Sense Mode Field Overflow) commands. 
If any segment of a program must be run in the halt mode, the latches should 
first be turned off with bfv (Branch Field Overflow) and bsc (Branch if Sign 
Change ) commands, and the machine then placed in the halt mode. The sense 
mode must then be restored before macro-instructions are executed. 

If the arith macro-instruction is used in a program, consideration must be given 
to the setting of the three Accumulator Overflow keys and the Exponent Over- 
flow key ( see page 132) . 
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OPEN 



open generates instructions to initialize input or output tape files for processing. 



Source Program Format The basic format for the open statement is as follows: 



Line 
3 5 


Label 

6 IS 


Operation 
16 20 


21 25 30 


OPERAND 

35 40 


< 


1 , 


ANYLA.BEL, , 


0,P,E,N, 


FI.L.EL.F.I ,L,E.2,. 


,F,I,L,E,3 . etc.. . , 




2 


i i i i i i i i 


III! 


i i i i i i i i i , i i i i i i i , i i i i i A 



anylabel is any symbolic label; it may be omitted. The entry open must be 
written exactly as shown. The operand must contain the name(s) of one or more 
tape files to be processed. Each name must be the same as the name which 
appears in the operand of the dtf entry which defines the file. As many tape 
files as desired may be named in the operand of an open statement, provided the 
operand does not extend over more than four continuation cards. The names 
of the tape files must be separated by commas. 



Processing Techniques 



The first instruction generated by the processor as a result of an open statement 
is as follows: 



Line 

|3 51 



Label 



Operation 
16 20 



25 



30 



OPERAND 

35 40 



AN Y L.A.BEL, 



BL.X 



1 0,C, SI .XG, ,1,0,0. I.O.P.EN 



2 



' ' i i i_ 



Following this, the processor will generate a branch constant containing the ad- 
dress of the first word of the File Specifications Table for each file named in the 
operand. A nop will be generated after the last branch constant. 

This calling sequence and the subroutine ioc.iopen (normally included as a 
result of a diocs statement) will perform the following operations: 

1. 

2. 
3. 
4. 
5. 



Furnish details about the file to the File Scheduler routine. 
Check on the availability of the file to the program. 
Rewind the tape, if necessary. 
Process the tape label, if any. 
Mark the file as "active." 



These operations will be performed automatically for subsequent reels of multi- 
reel files. In addition, end-of-reel operations (rewinding, writing of tape marks, 
and writing of trailer labels (if any) ) will be instituted. 
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Error Messages The following error messages will be produced during assembly under the con- 

ditions specified: 



rYDTTTJ A XTT» TIT A XTV 



If the operand is blank, a nop will be generated instead of the calling sequence. 

PARAMfin NOT A FILE 

If an operand parameter ( the number is indicated by nn, above ) is not defined 
by a dtf entry, a nop will be generated at the point in the calling sequence 
where a branch constant would normally be included. Since the iocjopen 
subroutine would consider this nop to be the end of the list of files to be 
initialized by open, a manual correction must be made before the object pro- 
gram is run. If corrections are not made and the file is not the last one named 
in the operand of the open statement, the object program will execute the next 
branch constant as a true Branch instruction, thus transferring control (in error) 
to the first word of the corresponding dtf. 
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GET 



get generates instructions to obtain a record for processing. 



Source Program Format The basic formats for the get statement are as follows: 



Line 

3 5 


Label 

6 15 


Operation 
16 20 


OPERAND f 

21 25 30 35 40 45 J 


0, 1 , 


ANYLA.BEL 


GET. 


T.A.P.E.F.I.L.E ) 


2 


ANYLA.BEL 


GET, , 


TA.P.E.F.I ,L,E, ,T,0, WO.R.KAR E A. , , . , \ 


3 


ANYLA.BEL 


GET, 


C A.R.DF.I LE ) 


4 


A.N.Y, LA.BEL , 


GET, 


CA.R.DF.I ,L,E, T.O, .WOR.KARE.A ) 


5 


.I i i i I i i 


iiii 


— i — i — i — j — i — 1_ i .. i . i i i i i i i i , i i i i i i i K 



anylabel is any symbolic label; it may be omitted. The entries get and to must 
be written exactly as shown. The first item in the operand must be the name of 
a tape file or unit record file. This name must be the same as the name which 
appears in the operand of the dtf or duf entry which defines the file. 

If the second or fourth format is used, the second operand item must be the word 
to, preceded and followed by a single blank character. The third operand item 
must then be a name which appears as the label of a drdw statement, the label 
of a da header line, or the label of a da subsequent entry. 



Processing Techniques 



The calling sequence generated by each get statement, in conjunction with the 
File Schedulers and other subroutines of the Input/Output Control System, make 
it possible for the object program to obtain each input record one at a time, re- 
gardless of the form for the input. The record will be made available in the input 
area and, if specified, moved to a work area. When the third item in the operand 
is the label of a drdw, the record will be moved to the area defined by the gen- 
erated rdw. When the third item in the operand is the label of a da header line, 
the record will be moved into the area defined by the da. If the da header line 
does not specify the generation of an rdw, the processor will generate (else- 
where) an rdw to be used by the get statement. When the third item in the 
operand is the label of a da subsequent entry, the input record will be moved into 
the area defined by that entry. In this case, the processor will always generate 
an rdw to be used by the get statement. 






^A ir 



pletely dependent on the size of the area defined by the third item in the oper- 
and. No warning message will be issued if the size of the work area is not equal 
to the size of the input record. The programmer must define the work area to 
equal the amount of the input record that is to be moved. 
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Card Files For card files, the get statement using the third format causes the generation of 

the following instructions: 

ANYLABEL GET CARDFILE 

ANYLABEL BLX IOCSIXH, IOC.Dn 

The get statement using the fourth format causes the generation of the following 
instructions : 

ANYLABEL GET CARDFILE TO WORKAREA 

AXYLABEL BLX IOCSIXH, IOC.Cn 

B WORKAREA 

ioc.cn and ioc.Dn are the labels of the two entry points to the unit record routine 
which is generated by the duf entry that defines the file. 

Tape Files For tape files, the use of the first or second format will cause the address of the 

first word of the next record to be placed into the indexing portion of an index 
word specified in the File Specifications Table of the input file. Processing may 
then be done by using instructions referring to fields within the record as defined 
by a da subsequent entry relative to 0000 plus this index word. This indexing 
will be assigned automatically by writing the name of the index word in the da 
header line operand as described on page 35. If processing is to be done by 
using non-indexed instructions, the record may be moved to a work area by means 
of the move macro-instruction. However, the second format above will initialize 
the index word and move the record to the work area. With either the first or 
second format, reading in of the next block of records from tape when all records 
in the input area have been processed is automatic. 

Error and Warning The following error and warning messages will be produced during assembly 

Messages under the conditions specified: 

OPERAND BLANK 

If the operand is blank, a nop will be generated instead of the calling sequence. 

OPERAND HAS TWO PARAMETERS 

If there are two parameters in the operand, the calling sequence for the get 
inputfile form will be generated, followed by a nop. 

PARAM 01 NOT A FILE 

If the first item in the operand is not the name of a tape or card file, a nop will 
be generated instead of the calling sequence. 

PARAM 01 NOT INPUT FILE 

If a unit record file is named in the operand and if it is not an input file, this 
message will be produced. A nop will be generated instead of the calling se- 
quence. 

PARAM 03 IS A FILE. PARAM 03 IGNORED 

If the third item in the operand is the name of a tape or unit record file, the 
calling sequence for the get lnputfile form will be generated, followed by a 

NOP. 

GET 1 13 



PARAM 03 NOT DEFINED 

If the third item in the operand is not defined by a da header line, da subse- 
quent entry, or a drdw statement, the calling sequence for the get inputfile 
form will be generated, followed by a nop. 

srbform4 blank, assumed 10 

If the file named in the operand specifies Form 4 records, and if the subrecord 
blocking factor is not specified, a subrecord blocking factor of 10 will be as- 
sumed. The calling sequence, however, will be generated in the normal man- 
ner. 

W T ARNING— PARAM 01 NOT INPUT FILE 

If a tape file is named in the operand and if it is not an input file, this message 
will be produced. However, the calling sequence will be generated in the 
normal manner. 

WARNING— PARAM 02 IS NOT -TO- 

If there are three parameters in the operand, and if the second parameter is not 
the word "to," this message will be produced. The calling sequence will be 
generated as if the second parameter had been "to." 

WARNING — RLIFORM3 BLANK 

If the file named in the operand specifies Form 3 records, and if the record 
length indicator is not specified, this message will be produced. It will be 
assumed that the record length indicator is located in position of word of 
the record. In all other respects, the calling sequence will be generated in the 
normal manner. 
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PUT 



put causes the generation of instructions that will provide the address of the next 
available word in the output area and, if desired, include a processed record in 
an output file by moving the record to the output area. 

Source Program Format The basic formats for the put statement are as follows: 



Line 

I? SI 



Label 



Operation 
16 20 



25 



30 



OPERAND j 

35 40 4! 



ANYLA.BE.L, 



PUT, 



OUT.AP.EFl.LE. 



0.2 



ANYLA.BEL, 



PUT, 



TA.P.EF.I.L.E, ,I,N, ,0,U,T.A,P,E,F,t ,L,E, 



ANYLA.BEL 



PUT. 



WORKA.REA, I.N, ,0,U,T,A,P,E,F,l ,L,E, 



ANYLA.BEL 



PUT, 



FI.E.LD.NAM.E, ,I,N, .O.U.T.A.P.EF.I ,L,E 



ANYLA.BEL 



PUT, 



CAR.D.F.ILE, I.N, OUT.APEF.I .L,E, 



ANY. LABEL, 



PUT, 



0,U,T,C,A.R,P,F,L,E. 



7 



A.N.Y, L.A.BEL, 



P,UX 



T.AP.E.F.I ,L,E, I.N, ,0,U,T.C,A,R,D,F.L,E, 



08 



AN.Y.LA.B.EL, 



P,U,T, 



W,0,R,K,A.R.E,A, ,|.N. ,0,U.T.C,A,R,D,F.L,E, 



09 



A .N.Y.L.A.B.E.L, 



PUT, 



i o 



-I I I u 



anylabel is any symbolic label; it may be omitted. The entries put and in must 
be written exactly as shown. The operand may contain either one or three param- 
eters, as follows: 

1. If the operand contains one parameter it must be the name of an output tape 
or unit record file; it must appear as the operand of the dtf or duf entry which 
defines the file. 

2. If the operand contains three parameters, the third parameter must be the 
name of an output tape or unit record file; it must appear as the operand of 
the dtf or duf entry which defines the file. The second parameter must be the 
word in, preceded and followed by a single blank character. The first param- 
eter may be defined by appearing as a name in any of the following: 

a. Operand of a dtf ( the first format above ) . 

b. Operand of a duf ( the sixth format above ) . 

c. Label of a da header line. 

d. Label of a da subsequent entry. 

e. Label of a dc header line. 

f . Label of a dc subsequent entry. 

g. Label of a dline header line. 

h. Label of a dline subsequent entry. 

i. Label of a dbdw. (The area defined will be included in the output file.) 



Processing Techniques 



The calling sequences generated by each put statement, in conjunction with the 
File Schedulers and other subroutines of the Input/Output Control System, 
make it possible for the object program to cause the inclusion of each processed 
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record or field in the output file one at a time, regardless of the output blocking 
factor. If the name of the item to be included is defined by a declarative state- 
ment, and, if an rdw(s) is not specified for that item, the processor will generate 
( elsewhere ) an rdw to be used by the put statement. 

The use of the first or sixth format will cause the address of the next available 
word in the output area to be placed in the indexing portion of an index word 
specified in the File Specifications Table of the output file. Data may then be in- 
cluded in the output area by means of a later move statement. (It may also be 
processed there until the next put occurs. ) The other formats, however, not only 
cause the address of the next available word to be placed in the index word 
specified, but also cause automatic inclusion of the record in the output file and 
updating of the proper index words. 

Writing of the output area will occur automatically when the area is full. 

Error and Warning The following error and warning messages will be produced during compilation 

Messages under the conditions specified: 

OPERAND BLANK 

If the operand is blank, a nop will be generated instead of the calling sequence. 

OPERAND HAS TWO PARAMETERS 

If there are two parameters in the operand, a nop will be generated instead of 
the calling sequence. 

output srbform4 blank, assumed 10 

If the output tape file named in the operand specifices Form 4 records, and if 
the subrecord blocking factor is not specified, a subrecord blocking factor of 
10 will be assumed. The calling sequence, however, will be generated in the 
normal manner. 

PARAM 01 ( 03 ) NOT A FDLE 

If the parameter named as the output file is not a tape or unit record file, a nop 
will be generated instead of the calling sequence. 

PARAM 01 ( 03 ) NOT OUTPUT FILE 

If the parameter named as the output file is a unit record file, and if it is not 
defined by its duf as an output file, this message will be produced. A nop will 
be generated instead of the calling sequence. 

PARAM 01 UNDEFINED 

If there are three parameters in the operand, and if the first parameter is not 
defined by one of the nine entries named under "Source Program Formats," 
this message will be produced. The calling sequence for the put outputfile 
form will be generated, followed by a nop. 

WARNING — OUTPUT RLLFORM3 BLANK 

If the output tape file named in the operand specifies Form 3 records, and if 
the record length indicator is not specified, this message will be produced. It 
will be assumed that the record length indicator is located in position of 
word of the record, and the calling sequence will otherwise be generated in 
the normal manner. 
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WARNING — PARAM 01 ( 03 ) NOT OUTPUT FILE 

If the parameter named as the output file is a tape file, and if it is not defined 
by its dtf as an output file, this message will be produced. However, the call- 
ing sequence will be generated in the normal manner. 

WARNING — PARAM 02 IS NOT -IN- 

If there are three parameters in the operand, and if the second parameter is 
not the word "in," this message will be produced. The calling sequence will be 
generated as if the second parameter had been "in." 
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PUTX 



putx causes the generation of instructions that will include a processed record 
in an output file by exchanging rdws rather than by moving the record. 



Source Program Format The basic format for the putx statement is as follows: 



Line 

B 51 



Label 



Operation 
16 20 



21 



25 



30 



OPERAND 

35 40 



45> 



0,1 



A.N.Y.L.A.B.E.L. . 



P.UT.X. 



I.N.P.U.T.F.I.L.E. .I.N. OU.TPU.T.F.I.L.E. . 



0.2 



_i i i i i_ 



_i i i i_ 



-i — I i I 1 i I i l_ 



anylabel is any symbolic label; it may be omitted. The entries putx and in must 
be written exactly as shown. 

The first item in the operand must be the name of an input tape file. This name 
must appear in the operand of the dtf entry which defines the file. 

The second item in the operand must be the word in, preceded and followed by 
a single blank character. 

The third item in the operand must be the name of an output tape file. 

This name must appear in the operand of the dtf entry which defines the file. 



Processing Techniques 



The calling sequences generated by each putx statement, in conjunction with the 
File Schedulers and other subroutines of the Input/Output Control System, make 
it possible for the object program to cause the inclusion of each processed record 
in the output file, one at a time, regardless of the output blocking factor. Unlike 
the put statement, however, the putx statement causes this inclusion by the in- 
terchange of rdws; the record itself is not moved. Thus, an rdw describing the 
record to be written is placed in the list of output rdws and the rdw which was 
previously at that point in the list is placed back in the input list, replacing the 
original rdw. 

The form of the records in the files places the following restrictions on the use 
of the putx macro-instructions: 

1. Form 3 records can not be processed with a putx macro-instruction. 

2. The combination of input record form and output record form must be one 



of the following: 

Input File Record Form 



Output File Record Form 

I 
2 
1 
2 
4 
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3. The length of fixed length records or the maximum length of variable length 
records must be identical for both the input and output files. 

4, For Form 4 records, the number of sections in input and output records must 
be the same and the maximum number of words in the corresponding sections 
of each input and output record must be identical. 

There is no restriction on the blocking factor of the input and output files. The 
blocking factor, i.e., the number of records in one block, may be different for 
each of the files provided that the other restrictions listed above are observed. 

After rdws have been exchanged by a putx macro-instruction, the input record 
is no longer available for processing; the programmer must be certain that all 
processing requiring the input data is completed before issuing the command. 

When putx is to be used, processing should be done in the input area using 
indexed instructions which refer to fields within the record as defined by a da 
entry relative to 0000. If input data is moved to a work area for processing, do 
not use putx. If putx is used, the original input data rather than the results of 
processing will appear in the output file. 

The automatic function of writing blocks of records on tape is the same for the 
putx macro-instruction as for the put macro-instruction. 

Error and Warning The following error and warning messages will be produced during compilation 

Messaqes under the conditions specified: 

IMPROPER OPERAND 

If the operand does not contain three parameters, a nop will be generated 
instead of the calling sequence. 

PARAM 01 (03) FILE FORM INVALID 

If the files named in the operand do not conform to the restrictions regarding 
record form which are listed under "Processing Techniques," a nop will be 
generated instead of the calling sequence. 

PARAM 01 (03) NOT A FILE 

If either the first or third item in the operand is not defined by a dtf, a nop 
will be generated instead of the calling sequence. 

PARAM 03 — SRBFORM4 BLANK, ASSUMED 10 

If the output tape file named in the operand specifies Form 4 records, and if 
the subrecord blocking factor is not specified, a subrecord blocking factor of 
10 will be generated. The calling sequence, however, will be generated in the 
normal manner. 

RECLENGTHS UNEQUAL 

If the record lengths specified for the tape files named in the operand are not 
equal, this message will be produced. The calling sequence will be generated 
in the normal manner, however. 

SRBFORM4 UNEQUAL. OUTPUT SRB USED 

If the tape files named in the operand specify Form 4 records, and if the sub- 
record blocking factors of the files are not equal, this message will be produced. 
The subrecord blocking factor of the output file will be used in the calling 
sequence. 



PUTX 
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CLOSE 



close generates instructions to remove tape files from use. 
Source Program Format The basic format of the close statement is as follows: 



Line 

13 51 



Label 



Operation 
16 20 



OPERAND 

35 40 




ANY L, A.BEL 



CLOSE 



FI.L.EA.F I ,L.E.B,.,F.I,LE,C. etc.. 



2 



Processing Techniques 



anylabel is any symbolic label; it may be omitted. The entry close must be 
written exactly as shown. The operand must contain the name(s) of one or more 
tape files to be removed from processing use. Each name must be the same as 
the name which appears in the operand of the dtf entry which defines the file. 
As many tape files as desired may be named in the operand of a close statement, 
subject only to the restriction that the operand may not be extended over more 
than four continuation cards. The names of the tape files must be separated by 
commas. 

The first instruction generated by the processor as a result of a close statement 
is as follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND j 

21 25 30 35 40 45/ 


0,1 , 


ANYLA.BEL 


BLX 


1 OCSI.XG.IO.C . ICL.O.SE J 


2 


l 1 1 i 1 , l ; i 


i i • i i 


— . — 1 — 1 — 1. j. 1 1 .1. 1 1 1 1 1 1 1 1 1 1 , 1 1 1 , 1 A 



Following this, the processor will generate a branch constant containing the ad- 
dress of the first word of the File Specifications Table for each file named in the 
operand. A nop will be generated after the last branch. 

This calling sequence and the subroutine ioc.iclose (normally included as a 
result of a diocs entry) will perform the following for each output file: 

1. Write out remaining records in the output area( s ) . 

2. Write a tape mark. 

3. Write end-of-file trailer labels (if desired). 

In addition, the following will be performed for all files: 

1. Kewind it necessary. 

2. Mark the file as "inactive." 

The close statement will normally be used to cause these operations to be per- 
formed for the last reel of each file. 
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Error Messages The following error messages will be produced during assembly under the con- 

ditions specified: 

OPERAND BLANK 

If the operand is blank, a nop will be generated instead of the calling sequence. 

PABAMfm NOT A FILE 

If an operand parameter ( the number is indicated by nn, above ) is not defined 
by a dtf entry, a nop will be generated at the point in the calling sequence 
where a branch constant would normally be included. Since the ioc.iclose sub- 
routine would consider this nop to be the end of the list of files to be removed 
by close, a manual correction must be made before the object program is run. 
If corrections are not made and the file is not the last one named in the operand 
of the close statement, the object program will execute the next branch con- 
stant as a true Branch instruction, thus transferring control (in error) to the 
first word of the corresponding dtf. 
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END 



end generates instructions to remove tapes from use, type an end-of-job message, 
and then branch, halt, or permit spool operations. 



Source Program Format The basic format for the end statement is as follows: 



Processing Techniques 



Line 

3 5 


Label 

6 15 


Operation 

16 20 


OPERAND \ 

21 25 30 35 40 45/ 


o,i, 


ANY.LA.BEL, , 


END, , 


BRANCH AD ,D,R \ 


2 




i i i i 


, i i i i , i i i i .i i i i i i i i , ■ i i , i A 



anylabel is any symbolic label; it may be omitted. The entry end must be 
written exactly as shown. The operand may be blank, or it may contain an 
actual or symbolic address. 

The end statement will cause the generation of one of the following calling 
sequences: 



ANYLABEL 


END 




ANYLABEL 


BLX 


IOCSIXG, IOC.EEND 




NOP 







or 




ANYLABEL 


END 




ANYLABEL 


BLX 


IOCSIXG, IOC.D2ND 




B 


BRANCHADDR 



These instructions and the ioc.iend subroutine (normally included as a result of 
a diocs statement) will initiate the operations generally performed by the glose 
macro-instruction for all files for which this has not yet been done, type an end- 
of-job message, and cause a branch to branchaddr ( if one is named ) . 

If the branch address is omitted, the generated instructions will perform the 
necessary close operations; thereafter, the instructions will cause one of the 
following: 

1. A halt if no spool program is run in conjunction with the main program. 

2. A program loop to be entered to permit spool programs to continue if any are 
being run. Loading of another main program can then be initiated on signal 
from the spoool routine. 
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ARITH — Arithmetic Operations 



arith generates instructions to compute the value of an arithmetic expression 
and to store the result in any desired field. 

Source Program Format The basic formats for the arith statement in the source program are as follows: 



Arithmetic Expressions 



Numerical Quantities 



Arithmetic Operators 



Line 
3 s 


Label 

6 IS 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 f 


0,1 , 


A.N.YLA.BE.L, , 


AR.I ,TH 


RE,S,U.L,T,= EXP.RESS I.ON , | 


2 


A,N,Y,L A.BEL 


A, R.I ,TH 


RE.S.U.L.T.sE.XP.R.E.S.S.I ,0 N,, V.ERFLO.WBR,!" 


3 









anylabel is any symbolic label; it may be omitted. The entry arith and the 
equal sign must be written exactly as shown. The equal sign indicates that the 
result field is to be set equal to the value of the arithmetic expression, result 
may be any symbolic name; the various allowable forms of the expression are de- 
scribed under "Arithmetic Expressions," below, overflowbr is the symbolic 
label of the first instruction of a routine to which the program is to branch in the 
event of an overflow. 

Arithmetic expressions are formed from numerical quantities which may be in 
one of several modes. In addition, arithmetic operators or junctions may oper- 
ate on the quantities and arithmetic punctuation may establish an execution 
sequence. 

The numerical quantities that enter the computation may be of several kinds, 
namely symbolic fields (representing variables), literals, or defined constants. 
Fields referenced by symbolic names will generally be defined under a da or 
DC header line, with their mode and (where applicable) format specified. Literals 
may be signed or unsigned; if unsigned, they will be interpreted as positive. 
Adcons will be treated as four-place integers in the automatic-decimal mode. 

The arith statement interprets two types of arithmetic operators, unary and 
binary. A unary operator identifies or changes the sign of one numerical quan- 
tity; a binary operator indicates an operation to be performed upon two quan- 
tities to form another. 

The following two unary operators are written preceding the quantity upon 
which they are to operate: 



Operator 



Operation 



& or + The ampersand or plus sign preceding a literal identifies it as 
positive. When either precedes another quantity, it does not 
affect its value. 
— A minus sign preceding a positive quantity changes its sign to 

minus; a minus sign preceding a negative quantity changes its 
sign to plus 

The following five binary operators are written between the two quantities upon 
which they are to operate: 



END & ARITH 
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Operator Operation 

& or + The ampersand or plus sign indicates that the two numbers are 
to be added. 

— The minus sign indicates that the second number is to be sub- 

tracted from the first number. 

* The asterisk indicates that the two numbers are to be multiplied. 

/ The slash indicates that the first number is to be divided by the 

second number. 

** Double asterisks indicate exponentiation; i.e., the first number is 

to be raised to the power indicated by the second number. 

The use of arithmetic operators preserves the mode of the operands. 



Modes 



Computation can be carried out in either automatic-decimal or floating-decimal 
mode. All numerical quantities appearing in expression should be in the same 
mode. Two exceptions ( 4 and 5, below ) are included in the following rules which 
apply to modes within expression: 

1. If A is a numerical quantity, then +A, —A, and ABS(A) are quantities of 
the same mode as A. 

2. Enclosing a quantity (ies) in parentheses does not change the mode of the 
quantity (ies) 

3. Adding, subtracting, multiplying, or dividing two quantities of the same mode 
will give a result in the same mode. 

4. If A and B are numerical quantities, then A*°B will be a permissible expres- 
sion of the same mode as A, regardless of the mode of B. The permissible 
combinations of A and B and the resultant mode of A**B are indicated in 
the following table: 

Mode of A Mode of B Mode of A**B 



automatic-decimal 
automatic-decimal 
floating-decimal 
floating-decimal 



automatic-decimal automatic-decimal 

floating-decimal automatic-decimal 

automatic-decimal floating-decimal 

floating-decimal floating-decimal 

5. Arguments of functions may be in a different mode from that of the rest of 
expression. ( For details, see "Functions," below. ) 

The result field may be in a different mode from that of expression. In such 
a case, coding will be generated to edit the answer to the mode and format of the 
result field. 

The arith macro generator will not accept fields in the alphameric mode as oper- 
ands. When an alphameric field, either literal or symbolic, is encountered, an 
error message will be issued and a nop instruction generated. 



Functions 



During the computation of an arithmetic expression, functions may be evaluated 

T>t-^iri/4o^J tllSt £ 1 "' r 'rO r 'ris*t6 Subroutines RT*e 9 v 9iJ n ble. S'Th siibrrmtinpis mud bf» 

in the Program Library, even when they are specially provided by the program- 
mer. (The function names used in the various examples of the arith macro- 
instruction are intended for illustration only. Their use should not imply that 
subroutines evaluating these functions are being furnished. ) 
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The maximum number of arguments (independent variables) allowed for a 
function is equal to 69 minus the total number of parameters in the source state- 
ment. If a function is included in the source statement and this function with its 
arguments are the only parameters in the statement, then a maximum of 34 argu- 
ments would be allowed for the function. This is deduced since 34 arguments 
plus 1 function name equals 35 parameters and 69 minus 35 equals 34 arguments 
that will be accommodated. Under the same circumstances, if the function had 
35 arguments, then 35 plus the 1 function name equals 36 parameters and 69 
minus 36 equals only 33 arguments which can be accommodated. The last 2 
arguments would be ignored and a message would be issued. If the source state- 
ment contains the maximum number of parameters permitted, i.e., 50, then a 
function included in the statement would be allowed only 19 arguments. Argu- 
ments may be considered to be either single variables (A, b, X, y) or expressions 
(a+b, 2*c/d-e, X**Y). 

The arguments to be used by a function are enclosed by a set of parentheses and 
written following the function name. A comma is written following each argu- 
ment but the last. An example of a function followed by a series of five arguments 
is as follows: 

function(A, b-2, X*Y, C**d, z) 

arith will generate a call for the subroutine specified by the symbolic name 
function, furnish the arguments to this subroutine and generate instructions for 
the computation to be continued, if necessary, after the function has been 
evaluated. 

Function arguments constitute one of the exceptions to the rule that all fields 
within expression must be in the same mode. For functions, this rule is modified 
as follows: 

1. The argument(s) of any function must be in the proper mode in order for 
the specific subroutine called in to be able to operate upon it. 

2. The function value must be in the proper mode so that the next computa- 
tional step can be carried out. 

The second condition states specifically that function values need not be in the 
mode of the expression as a whole, since it is possible that the value obtained 
from one function will serve as an argument for another. When functions are 
nested in this manner, only the value of the outermost function must be in the 
mode of the expression; the inner functions must produce values in a mode 
acceptable to the next function towards the outside. For example, if the expres- 
sion a - arctan (loge (x) ) is to be evaluated, an Arctan function routine 
must be available whose output is in the same mode as a. A Log e function must 
be available whose output is in a mode that the Arctan function can accept as 
an argument, and x must be in a mode that Log e can accept as an argument. 
The result will be in the mode of a. 

If a function has an expression as an argument, coding will be generated to com- 
pute this expression and to furnish the result to the function subroutine. Such 
computation, as well as arithmetic operations on function values prior to their 
being used as arguments of other functions, will preserve the original mode. 
For example, if 3 — sin( 3.1415 + arctan (1 — x) ) is to be computed, x must 
be in the automatic-decimal mode because 1 is in the automatic-decimal mode. 
The Arctan function must take arguments and yield function values in the 
same mode, and the same must be true of the Sine function. The result will then 
be automatic-decimal. 
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The absolute value function is a special function which is provided on the Com- 
piler Systems Tape. This function is the only one whose instructions are 
generated in-line. The abs function preceding a quantity indicates that the sign 
of the quantity is to be plus. Thus, a negative quantity is changed to a positive 
quantity; a positive quantity is unaffected. The quantity in question must be 
enclosed by parentheses. 

Arithmetic Punctuation and Arithmetic expressions using more than one operator may be ambiguous unless 
Execution Sequence the order in which the operations are to be carried out is indicated. For example, 

12—2—3 yields 7 if the expression is interpreted to be (12— 2)— 3 and yields 13 if 
interpreted to be 12— (2— 3). It is therefore necessary to establish an execution 
sequence of arithmetic operations by means of certain punctuation rules. 

The arith statement will use parentheses in the customary way: expressions 
enclosed by parentheses are to be computed before they can be used as a com- 
ponent in the next operation. For nested parentheses (parentheses within paren- 
theses) the same rule holds; the expression ( s ) enclosed by a greater number of 
parentheses will be computed before those enclosed by fewer parentheses. 

To reduce the great number of parentheses which might be introduced by the 
explicit punctuation of all expressions, certain conventions are introduced. The 
following order of preference for operations is established: 

1. Exponentiation 

2. Unary Operators 

3. Multiplication and Division 

4. Addition and Subtraction 

A sequence of operations will be carried out in this order unless parenthesization 
intervenes or directs otherwise. 

If several operators of the same order are present, they will be executed from left 
to right. For example, A-B-C-Dis treated as ((A-B)-C)-D; similarly, for 
multiplication and division, A/B/C*D is treated as ( (A/B)/C)*D. 

Repeated exponentiation is also executed from left to right unless punctuated 
otherwise. For example, 

2 3 is interpreted to mean (2 3 ) or 8 2 , not 2 (,i ) or 2 9 . 

In other words, A**B**C is treated as (A**B)**C by the arith macro 
generator. 

The only exception to this "left-to-right" rule applies to the addition and/or 
subtraction of automatic-decimal fields. The fields are taken in order of increas- 
ing number of decimal places rather than from left to right. This eliminates 
shifting the accumulator to the right which avoids loss of digits in this direction. 
Consequently, shifting will be only to the left; possible error is standardized to 
leftward overflow, which can be dealt with according to the procedures described 
under "Overflow Branch." 

This execution order for operations is followed for expressions enclosed by the 
most parentheses, in order of decreasing parentheses, until the value of the entire 
expression has been computed. 

If these conventions are taken into account, a large number of parentheses may 
be omitted. 
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The generator will also accept statements in which unnecessary but correctly 
placed parentheses exist, but it is in the interest of storage economy to leave out 
parentheses wherever possible without introducing ambiguity. In no case mav 
the number of f»arentheses ( other than those used in address modification to 
enclose any one numerical field) exceed fifty. Since this limitation is identical to 
the number of permitted parameters, enough parentheses are allowed to punc- 
tuate any admissible expression. If the maximum parenthesis level is exceeded 
and the generator is unable to process the macro-instruction, an error message 
will be issued. 

The following examples illustrate the use of the punctuation rules and the re- 
sultant sequence of execution: 

A-B*C 

A+((_B)*C) 

— B and C are multiplied; the result is added to A. 

(A-B)*C 

Same as expression. 

B is subtracted from A; the result is multiplied by C. 

ABS(A)-B**C 

(ABS(A))-(B**C) 

B is raised to the power C; the absolute value of A 

is taken. Finally, the first result is subtracted from the 

second. 



expression: 
Interpretation: 
Execution Sequence: 

expression: 
Interpretation: 
Execution Sequence: 

expression: 
Interpretation: 
Execution Sequence: 



expression: 
Interpretation: 
Execution Sequence: 



expression: 
Interpretation: 
Execution Sequence: 



A+B*C-D/3 

A+(B*C)-(D/3) 

B and C are multiplied; D is divided by 3; the neces- 
sary addition and subtraction operations are per- 
formed. 

A* 1.2— SIN ( X+3 ) /3+ Y* *4 
(A*1.2)-((SIN(X+3))/3) + (Y"4) 
X and 3 are added and the sine of the sum taken. Y 
is raised to the 4th power; A is multiplied by 1.2; 
the sine is divided by 3. Finally, the necessary addi- 
tion and subtraction of the intermediate results are 
performed. 



Processing Techniques 
Limitations on Length 



The number of permissible parameters is fifty. Parameters are considered to be 
the following: 

1. Numerical fields ( including function arguments ) . 

2. Names of functions, including abs. 

3. Overflow branch, if specified. 

Arithmetic operators and punctuation are not counted as parameters. An attempt 
to write more than the permited number of parameters in the operand of an 
arith statement will be intercepted by the processor and no coding will be 
generated. 



Spacing and Punctuation 



No blanks should appear in the operand of an arith macro-instruction. Only 
one equal sign may appear, positioned as shown under "Source Program Format." 



ABITH 
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Address Modification 
Overflow Branch 



Mode Size for Automatic- 
Decimal Computations 



Commas must separate function arguments; one additional comma is required to 
separate expression from overflowbr if the second format is chosen. The appear- 
ance of illegal characters in the operand will cause an error message to be issued. 

Symbolic addresses may be modified by indexing and address adjustment. 

Since the conditions under which accumulator overflow could take place during 
a computation are extremely varied, no general routine for dealing with overflow 
has been provided. Instead, opportunity is given to the programmer to supply 
his own correction routine, which can be suited to his particular arith statement. 
If an overflow branch is specified, the generated instructions will contain a blx 
instruction to cause a transfer to the overflow routine under the following con- 
ditions: 

1. Automatic-Decimal Computations: Overflow resulting from addition, sub- 
traction, exponentiation, store, and add-to-storage operations. (Transfer will 
not be caused by multiplication and division overflow. However, warning 
messages will be issued.) 

2. Floating-Decimal Computations: Exceeding the maximum value for floating- 
decimal numbers as a result of any operation. This transfer will be made 
whether the object program machine has floating-decimal hardware or not. 
In the first case, the floating-decimal overflow indicator is tested; in the 
second, this test is simulated along with the floating-decimal arithmetic pro- 
cedures. 

Following the overflow routine, the program will return to the instruction in 
the object program following the blx, provided that the last instruction in the 
overflow routine is an unconditional Branch to location 0000 + X94. 

If no overflow branch is indicated, warning messages will be issued during 
automatic-decimal arithmetic assemblies pointing out the possibility of overflow. 

Since the possibility of overflow in floating-decimal computations cannot be 
detected on the basis of format alone, warning messages will never be issued 
during floating-decimal arithmetic assemblies. 

If overflowbr is indicated in the operand of the arith statement but, because 
of the input formats involved, overflow cannot possibly occur, then no overflow 
branch will be generated. This is illustrated in example 4 under "Examples." 

In handling automatic-decimal numbers, the processor establishes a mode size 
which is either ten or twenty digits in length and is based on the input formats 
of all the fields in the arith source statement. Then, based on the mode size which 
has already been determined and on the input formats, a "computation mask" 
or standard format is established. The mask indicates the decimal point place- 
ment and the maximum number of digits which may appear to the left and to 
the right of the decimal point. No intermediate results will be permitted to 
exceed this format. 

Symbols have been established for this discussion and are defined as follows: 
Symbol Definition 

The mode size for automatic-decimal computations. 

The maximum number of digits to the left of the decimal point 

(i.e.. integer digits) as specified bv the input formats in the arith 

source statement ( both expression and result fields ) . 

The maximum number of digits to the right of the decimal point 

(i.e., decimal digits) as specified by the input formats in the arith 

source statement ( both expression and result fields ) . 



MS 
MDL 



MDR 
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Symbol Definition 

dl The number of digits to the left of the decimal point ( integer digits) 

in a mask. 

dr The number of digits to the right of the decimal point (decimal 

digits ) in a mask. 

The mode size for automatic-decimal computation is established as follows. If 
mdl exceeds 20, i.e., if any of the input fields has more than twenty integer digits, 
an error condition results; error message N 19 is issued and no coding other than 
a nop will be generated. 

If mdl is less than or equal to 20, the mode size depends on the sum of mdl 
and mdr, as follows: 

MDL+MDR MS 

^10 10 

>10 20 

Once mode size has been established, the mask is defined. The procedure fol- 
lowed again depends on the value of mdl+mdr: 

1. If mdl+mdr is less than or equal to 20, dr will be set equal to mdr, and dl 
will be set equal to ms— dr. 

2. If mdl+mdr exceeds 20, dl will be set equal to mdl; dr will be set equal to 
ms — dl. Enough decimal digits will be truncated (without rounding) to re- 
duce the overall length to twenty digits. A warning message (W 18) will 
include the computation mask in four-digit form, the first two representing 
the number of integers, the last two the number of decimals. 

In short, if the total number of digits in all the input fields, with their decimal 
points aligned, is less than the computed mode size, the extra capacity is applied 
to the integer side. If the total exceeds 20, high-order digits are protected and 
decimal places truncated. 

The following examples illustrate the methods of establishing computation masks: 

1. Ten-digit mask with extra integer capacity. 

Input Formats mdl = 6 dr=mdr:=:3 

5.2 MDR = 3 DLr=MS— DR=rl0— 3=7 

6.1 Sum = 9 

3.3 ms = 10 Mask: 7.3 

2. Ten-digit mask without extra capacity. 

Input Formats mdl = 8 dr=mdr=2 

7.1 mdr = 2 dl=ms— dr=10— 2=8 

8.1 Sum = 10 

3.2 ms = 10 Mask: 8.2 

3. Twenty-digit mask with extra integer capacity; input fields do not exceed 
ten digits. 

natS MDL =: 8 DR=MDR=7 

:13 



Input Formats 

2.3 
8.2 
1.7 


MDL =: 8 
MDR = 7 
Sum = 15 
ms = 20 


DR=MDR=7 
DL=MS— DRr 

Mask: 13.7 


=20-7: 
ARITH 
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4. Twenty-digit mask with extra integer capacity; input fields exceed ten digits. 
Input Formats mdl ■= 9 dr=mdr=8 

9.2 MDR = 8 DL=MS— DR=20— 8=12 

7.8 Sum = 17 

3.1 ms = 20 Mask: 12.8 

5. Twenty-digit mask without extra capacity; input fields exceed ten digits. 
( This case could also occur with input fields not exceeding ten digits if two of 
them had formats of 10.0 and 0.10, respectively; the mask would then be 
10.10.) 

Input Formats mdl = 4 dr=mdr=16 

3.16 MDR = 16 DL=MS— DR=20— 16=4 

4.9 Sum = 20 

1.4 ms = 20 Mask: 4.16 

6. Twenty-digit mask with decimal digits truncated. 

DL=MDL=13 

-13=7 



Input Formats 


MDL = 13 


DL=MDL=13 


13.2 


MDR = 9 


DR=MS — DL=20 


11.8 


Sum = 22 




4.9 


ms = 20 


Mask: 13.7 



Two decimal places will be lost. Warning message W 18 will give the com- 
putation mask in the form 1307. 

During computation, all intermediate results will be confined to the mask. Ex- 
cess decimal digits developed will be truncated without rounding or warning. 
Excess integer digits may also be lost; if this becomes possible, the consequences 
will depend on the type of operation that caused the difficulty. 

Addition or Subtraction. If an overflow branch has been specified, coding will 
be generated to transfer the object program to this branch if necessary. If no 
overflow branch is indicated, warning message W 21 or W 22 will be issued dur- 
ing assembly. Warning messages are issued if overflow or digit loss is possible, 
as determined on the basis of field format alone; the transfer to the overflow 
branch takes place only when these conditions become actual due to the specific 
object-time contents of the fields. 

Multiplication or Division. If integer digits may possibly be lost during multi- 
plication and division operations, warning message W20 will be issued during 
assembly. Overflow resulting from multiplication or division will not cause a 
transfer to the overflow branch. 

If the divisor field in a division operation is defined as having integer digits, the 
high-order digit is significant. In other words, if the automatic-decimal format 
of a divisor is 2.4, the generator will proceed on the assumption that the contents 
of the field at object program time will be at least 10.0000. If this condition is 
not satisfied, intermediate results may exceed the computation mask without a 
warning at assembly time. 

If the divisor has an automatic-decimal format of the type O.n, it will merely be 
assumed that the nth decimal digit contains at least a 1; this assumption is, of 
course, non-restrictive, since zero divisors lead to special procedures as described 
under "Zero Divisors." 

When a warning message is issued, the programmer should check whether his 
intermediate results can exceed the mask on the left; this will depend on his 
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actual data as well as the defined field formats and the specified arithmetic op- 
erations. If overflow can occur, an input field can be redefined so as to ( 1 ) change 
a ten-digit computation to twenty-digit mode size, or ( 2 ) increase the number of 
integer digits at the expense of decimal digits. To avoid recurrence of the same 
problem after redefinition, it is generally advisable to modify the defined format 
of the result field where the program objectives permit. 

Exponentiation. The exponentiation of all numbers (automatic-decimal or float- 
ing-decimal bases having either automatic-decimal or floating-decimal expon- 
ents) is carried out by means of floating-decimal routines. Automatic-decimal 
bases and exponents are converted to floating-decimal numbers and exponentia- 
tion is carried out by means of a subroutine. The result will be converted to an 
automatic-decimal number, if required. Three exceptions to this process are as 
follows: 

1. If the base is an automatic-decimal integer and the exponent is an automatic- 
decimal integer less than ten digits in length, exponentiation is carried out by 
means of a subroutine which generates the required multiplication instruc- 
tions. 

2. If the base is an automatic-decimal integer and the exponent is a literal 2 or 
3, Multiply instructions are generated in-line. 

3. If the base is a floating-decimal number and the exponent is a literal 2 or 3, 
Floating Multiply instructions are generated in-line. 

If the result of the exponentiation should exceed the computation mask format on 
the left, transfer will be made to an overflow branch when one is specified. Other- 
wise, the overflow latch for Accumulator 1 will be set on. No warning message 
will be issued at assembly time ( except for cases 1 and 2, above ) , since the size 
of the result cannot be predicted on the basis of floating-decimal field formats. 

Zero Divisors Before a division is executed, the divisor is tested for zero. If the divisor is zero, 

the overflow latch for Accumulator 3 is set on. Subsequent procedures depend 
upon the mode of computation, as follows: 

1. Automatic-Decimal Computations: The accumulator (s) containing the quo- 
tient will be filled with 9s and given the proper sign determined by the signs 
of the dividend and divisor. Computation will then continue as usual. 

2. Floating-Decimal Computations: The division is ignored; i.e., the dividend 
is used as quotient. Computation will then continue as usual. 

No other operation initiated by the arith macro-instruction alters the overflow 
latch for Accumulator 3, with the possible exception of function subroutines, 
whose individual specifications may be consulted. This latch, therefore, pro- 
vides a certain test as to whether division by zero has been attempted. If such 
a test is desired, the latch must be set off before the arith macro-instruction is 
executed, since no automatic provision is made for this by the generator. 

Final Storage If the result field is in a mode different from that of the computation, editing 

will be necessary before final storage. The following rules apply: 

1. In editing from automatic-decimal to floating-decimal mode, the result will 
appear in normalized form. Only the first eight significant digits will be con- 
verted; further digits to the right will be truncated without rounding. 

2. In editing from floating-decimal to automatic-decimal mode, the following 
three cases are distinguished: 
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a. If, after conversion, the first significant digit falls to the left of of the 
high-order digit of the result field, an overflow condition exists. No 
warning message can be issued at assembly time since this condition can- 
not be predicted on the basis of floating-decimal field format alone. At 
object time, a message "shift out of range, flt to deci" will be typed 
out. Transfer will be made to the overflow branch if one is specified; such 
digits as can be accommodated in their proper places will be stored. If 
no overflow branch is specified, the overflow latch of Accumulator 1 will 
be set on. 

b. The "normal" case exists if, after conversion, the first significant digit falls 
into one of the digits of the result field. Excess decimal digits developed 
beyond the capacity of the result field will be truncated after rounding. 

c. If, after conversion, the first significant digit falls to the right of the low- 
order digit of the result field, then the decimal value of the answer is 
too small to register in the established format. At object time, a message 
"shift out of range, flt to deci" will be typed out. The result field 
will be set to zero. 

If the result of an automatic-decimal computation is to be stored in an automatic- 
decimal result field of smaller format, the following procedures are followed: 

1. Excess decimal digits are truncated after rounding; in other words, if the digit 
immediately to the right of the point of truncation contains a value of 5 or 
more, the next digit to the left is increased by 1. 

2. Excess integer digits are lost and an overflow condition results. If an over- 
flow branch is specified, transfer will be made to the overflow routine at ob- 
ject program time. If no overflow branch is indicated, warning message W 23 
is issued during assembly. 

Setting Overflow Lights The overflow lights for Accumulators 1, 2, and 3 should be set as follows for 

both automatic-decimal and floating-decimal computations. The exponent over- 
flow light should be set as indicated for floating-decimal computations if floating 
hardware is used. 

Accumulator 1. If the accumulator 1 overflow light is not on and Accumulator 1 
overflows, the machine will stop. 

If the accumulator 1 overflow light is on, one of the following provisions should 
be made: 

1. An overflow branch in the operand of the arith macro-instruction. 

2. A bvI (Branch if Overflow in Accumulator 1) instruction following each 
arith without an overflow branch. 

If neither of the above provisions is made and the accumulator overflows, the 
condition will be carried and an error will be introduced. 

Accumulator 2. The accumulator 2 overflow light must be on during object 
program time. 

Accumulator 3. The accumulator 3 overflow light must be on if the detection of 
an attempt to divide by zero is desired. 

Exponent. If the exponent overflow light is not on and the exponent overflows, 
the machine will stop. 
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If the exponent overflow light is on, one of the following provisions should be 
made: 

1. An overflow branch in the operand of the arith macro-instruction. 

2. A fbv (Floating Branch Overflow) instruction following each arith without 
an overflow branch. 

If neither of the above provisions is made and the exponent overflows, the con- 
dition will be carried and an error will be introduced. 

Error and Warning Under the conditions specified, the arith macro generator will issue the follow- 

Messages i n g error and warning messages during assembly. Unlike the other macro gen- 

erators, arith does not give the text of the message. Only the message code 
letter and number, possibly supplemented by a parameter number or computa- 
tion-mask format, are given. The programmer must refer to the list below for 
text and interpretation. The code letters are to be interpreted as follows: 

Code Interpretation 

n An error condition exists that makes further coding impossible; 

a nop has been generated. 

w A warning that either an unusual condition or the possibility of 

error exists; generation continues. 

x An error condition exists; generation will continue on the special 

assumptions stated in the message. 

N 01 NO OPERAND 

No numerical field has been specified upon which an operation is to be per- 
formed. 

X 02 NO EQUAL SIGN — WILL NOT STORE RESULT 

The result field and the equal sign have both been omitted. The generator 
has produced instructions to compute the value of the arithmetic expression, 
but not to store the result. 

X 03 NO RESULT FIELD — CANNOT STORE RESULT 

The operand portion of the macro-instruction begins with the equal sign. The 
generator has produced instructions to compute the value of the arithmetic 
expression, but not to store the result. 

N 04 ALPHA FIELD UNACCEPTABLE. PARAMETER XX 

The parameter number of the alphameric field has been included in the mes- 
sage. 

X 07 INCOMPLETE — WILL PROCESS TO PARAMETER XX 

The text of the input statement appears to be broken off; e.g., it ends with a 
left parenthesis. This condition may also occur if one blank precedes an entry 
that should be processed on the same card. The number of the last parameter 
processed has been included in the message. 

X 08 TEXT ENDS WITH OPERATOR — WILL IGNORE 

The last operator does not have an operand on its right and has been ignored. 

X 09 CONSECUTIVE OPERATORS — WILL ACCEPT FIRST ONLY BEFORE PARAMETER XX 

Two successive arithmetic operators have been detected by the scan, pre- 
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ceding the parameter whose number has been included in the message. The 
second of these operators has been ignored. 

X 10 NO PUNCTUATION — WILL IGNORE PARAMETER XX 

Two consecutive numerical fields have been detected, without an intervening 
operator. The second field, whose parameter number has been included in 
the message, has been ignored. 

X 11 ILLEGAL CHARACTER — WILL BE IGNORED. BEFORE PARAMETER XX 

The scan has detected a character that is not one of the allowable punctua- 
tion marks or arithmetic operators. The number of the next following parameter 
has been included in the message to aid in locating the faulty entry. 

Xl2 EXCESS RIGHT PARENTHESES — WILL IGNORE 

An attempt has been made to close more parentheses than had been opened. 
All right parentheses unmatched by left parentheses have been ignored. 

X 13 END OF SCAN — PARENTHESES DO NOT MATCH — WILL SUPPLY 

Some parentheses have been left open. Generation of instructions have pro- 
ceeded on the assumption that they are all to be closed at the right end of 
the EXPRESSION. 

X 16 FUNCTION WITHOUT ARGUMENT — PROCESSING STOPS BEFORE PARAMETER XX 

A function symbol, whose parameter number has been included in the mes- 
sage, has not been followed by any argument. Neither the function nor any 
subsequent entries have been processed. 

X 17 FUNCTION HAS TOO MANY ARGUMENTS — WILL IGNORE EXCESS. PARAMETER XX 

An attempt has been made to write a function, whose parameter number has 
been included in the message, with more than the maximum number of argu- 
ments which can be handled by the statement. Only the arguments which can 
be accommodated have been passed on to the function subroutine. 

W 18 DECIMAL DIGITS TRUNCATED. COMPUTATION MASK IS HDD 

In order to accommodate sufficient integer digits in computing intermediate re- 
sults, some of the decimal places of the input fields must be truncated. The 
message includes the four-digit computation mask; the first two digits indicate 
the maximum number of integers, the last two digits the maximum number 
of decimal digits. If an input field has any decimal digits in excess of this maxi- 
mum, the digits will be truncated without rounding. 

N 19 AUTO-DECIMAL FIELD HAS MORE THAN 20 INTEGERS 

Since the maximum mode size for automatic-decimal computation is twenty 
digits, input fields having more than twenty integers would lead to meaning- 
less results. A nop has been generated. 

W 20 INTEGER DIGITS MAY EXCEED COMPUTATION MASK HDD 

An automatic-decimal computation may develop more integer digits than are 
provided for in the maximum format for intermediate results. This format has 
been included in the message in four-digit form, the first two digits represent- 
ing the maximum number of integer digits that can be accommodated. (For 
details, remedies, etc., see "Mode Size for Automatic-Decimal Computations.") 

W 21 SHIFT LEFT MAY LOSE HIGH-ORDER DIGIT ( S ) 

Shifting left in the accumulators ) to accommodate automatic-decimal num- 



134 



bers with more decimal places for addition or subtraction may have caused 
digit loss on the left. This message has been issued because no overflow branch 
has been specified. 
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An operation of addition or subtraction has been performed in the automatic- 
decimal mode that may have led to accumulator overflow. This message has 
been issued because no overflow branch has been specified. 

W 23 OVERFLOW POSSIBLE IN RESULT FIELD 

The number of integer digits that may have been developed in evaluating the 
arithmetic expression exceeds the number available in the result field. This 
message has been issued because no overflow branch has been specified. ( Ex- 
cess decimal digits will have been rounded off without warning. ) 

N 24 FIELD SIZE EQUAL TO 

The parameter record has been incorrectly constructed by a higher level macro- 
instruction. A nop has been generated. 

X 25 MISSING OPERATOR AFTER FLOATING POINT LITERAL 

Operand following that literal has been ignored. 

X26 UNUSUAL PARAMETER 

The parameter was not usable to arith in its original form. The generator has 
produced instructions to treat the parameter as a 10-digit integer. 

N 27 EQUAL SIGN IN MIDDLE OF EXPRESSION 

Only one equal sign is allowed in a statement. A nop has been generated. 

W 28 INVALID REFERENCE TO A CODE SUBSEQUENT ENTRY 

The result field is a symbolic label of a code subsequent entry. Coding has 
been generated to store the result in the indicated literal. 

Examples The following are examples of acceptable coding for the arith macro-instruction. 

For each, the associated source-program entries are given, followed by the arith 
statement, coding generated in-line and (where applicable) coding generated 
out-of-line. 
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PAGE AA PROGRAM 

LN CDREF LABEL OP OPtRAND 



01 0054 


* 




ARITH EXAMPLE 1 


02 0055 




DA 


1 


03 0056 


INPUT 




12»19A5.3 


04 0057 


DELTA 




22»29A4.<* 


05 0058 


# 






06 0059 


AiMYLABEL 


ARITH 


INPUT=DELTA 


7 ;; 


ANYLAbEL 


ZA2 


DELTA(0»7) 


6 ;i 




SRR2 


1 


os> ;; 




ST2 


INPUT(0»7) 


10 0060 


* 
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ARITH EXAMPLE 2 


Qc 0065 




DA 


1 


QJ 0066 


X 




1 »3A3i0 


04 0067 


* 






05 0068 


ANYLABEL 


AR 1 TH 


X = X + 1 


Oo / 


ANYLAdcL 


ZA2 


X(0»2) 


07 > 




A2 


+ 1 


06 > 




ST2 


X(0*2) 


Ov 0069 


* 






10 0070 


* 


ThE FOLLOWING IS GENERATED 


11 0071 


# 










L ITER* 


sLo 


It X 






+ 1 


— - 
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PG/LN MESSAGE 
AA 05 ARITH W 20 0300 

ARITH Example 2 



+0003250325 
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Warning message W 20 has been produced because an automatic -decimal 
computation might develop more integer digits than can be accommodated 
by the mask 3. 0, which has been included in the message in the form 0300. 



LN 


CDREF 


LABEL 


OP 


OPERAND 


01 


1469 




* 




ARITH EXAMPLE 3 


02 


1471 






DA 


1 


03 


1472 




A 




11»18A4.4 


04 


1473 




6 




23»29A4.3 


05 


1474 




C 




30.39A4.6 


06 


1475 




D 




40»48A3.6 


07 


1476 




X 




50i59A4.6 


06 


14761 


QVERFLQWBR 


NOP 


REPRESENTS Fl 


09 


1477 




# 






10 


1478 




ANYLA6EL 


ARITH 


X=A-B+ABS(C~D) ,QVE 


11 




X 


ANYLABEL 


ZS2 


D(0»3) 


12 




X 




SL2 


6 


13 




X 




A2 


C(0»9) 


14 




X 




MSP 


9992 


15 




X 




ST2 


CQMAREA.A(Q»9)+1 


16 




X 




ZS2 


BIO. 3) 


17 




X 




SL2 


4 


lb 




X 




A2 


A(0t7) 


19 




X 




SL2 


2 


20 




X 




A2 


CQMAREA.A(0.9)+1 


21 




X 




BV2 


M.l 


22 




X 




BV3 


M.l 


23 




X 




B 


*+2 


24 




X 


M.l 


BLX 


93»OVERFLOWBR 


25 




X 




ST2 


X(0.9) 


26 
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* 






27 
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26 
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29 




X 


COMAREA.A 


DA 
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ARITH EXAMPLE 4 . 
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DA 1 
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ARITH Example 4 



Since MDL+MDR is greater than 10 in the fields defined in this example, 
the computation will be in twenty -digit mode, with a mask of 14. 6. 
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13 




X 




BLX 


94. SORT. A 


14 




>. 




ST1 


COMAREA. A<0»9)+1 


15 




K 




ZA2 


FC(0t3) 


16 




;; 




ZA3 


9992 


17 




X 




M 


9993 


18 




X 




SLC 


MACREG.l 


19 




X 




ZA3 


MACREG.114.5) 


20 




X 




C3 


+0000000016 


21 




X 




BL 


* + 4 


22 




X 




XS 


MACREG.l .0 


23 




X 




SRR 


O+MACREG.l 


24 




X 




B 


# + 5 


25 




X 




ZAi 


+9999999999 


26 




X 




ZA2 


+9999999999 


27 




X 




Al 


+5000000000 


28 




X 




Al 


+5000000000 


29 




X 




ST2 


COMAREA. A(0.9)+2 


30 




X 




ZAI 


COMAREA. A(0.9)+l 


31 




X 




A2 


COMAREA. AI0.9I+2 


32 




X 




STi 


FRESULT(0»9) 


33 


1504 




* 






34 


15041 


» 


THE FOLLOWING IS GENERATED OUT OF 


35 


15042 


* 






36 




X 




B 


M.10+1 


37 




X 


SORT. A 


BZl 


+ X94 


38 




X 




BM1 


M.4 






25 




X 


M.7 




+5000000000 


26 




X 


M.8 




+6250000001 


27 




X 


M.9 




+0101501025 


28 




X 






+0201930800 


29 




X 






+0702750550 


30 




X 






+1704350350 


31 




X 






+2906180250 


32 




X 






+5907600200 


33 




X 


M.10 




+9911230138 


34 




X 


COMAREA. 


A DA 












L 1 TERALS 


35 




X 






+0000000016 


36 




X 






+5000000000 


37 




X 






+9999999999 



7070 COMPILER SYSTEM VERSION 0MY08* CHANGE LEVEL 00001. 

CDNO FD LOC INSTRUCTION 



+0003250328 



PAGE AA 
REF 



00001 



00002 



00003 



00004 



00005 



09 


0325 




0325 


09 


0326 




0326 


09 


0327 




0327 


09 


0328 




0328 




0329 


+1300090325 






0330 


+2400030326 






0331 


+1200090397 






0332 


+1300090397 






0333 


+0200940354 






0334 


+1200090397 






0335 


+2300030327 






0336 


+3300099992 






0337 


+5300099993 






0338 


-5000010300 






0339 


+3300450001 






0340 


+3500090399 






0341 


+4000090345 






0342 


-4700010000 






0343 


-5001000100 






0344 


+0100090349 






0345 


+1300090401 






0346 


+2300090401 






0347 


+1400090400 






0348 


+1400090400 






0349 


+2200090398 






0350 


+1300090397 






0351 


+2400090398 






0352 


+1200090328 





00006 



0353 +0100090396 

0354 +1094090000 

0355 -1000090383 



09 
09 
09 
09 
00013 09 
09 
09 
09 
09 



0387 

0388 +6250000001 

0389 +0101501025 

0390 +0201930800 

0391 +0702750550 

0392 +1704350350 

0393 +2906180250 

0394 +5907600200 

0395 +9911230138 
+0003960398 



00014 09 0399 +0000000016 
09 0400 +5000000000 
09 0401 +9999999999 



0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 



0399 
04.00 
0401 



ERROR MESSAGE LIST 
PG/LN MESSAGE 
AA 08 ARITH W 20 0400 



PAGE AA PROGRAM 
LN CDREF LAbEL 



01 0088 

02 0089 

03 0090 

04 0091 

05 0092 

06 0093 

07 0094 
Oti 0095 
09 

10 
11 
12 
13 
14 
15 
16 

17 0096 

18 0097 

19 0098 
20 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
3d 
33 
34 
35 
36 
37 
38 
39 



PRESSURE 
VOLUME 
CENT I GRADE 
CONSTANT 
* 

ANYLAbEL 
ANYLAbEL 



01 


X 


02 


X 


03 


X 


04 


X 


05 


X 


06 


X 


7 


X 


Oti 


X 



* 
* 

Dl VI. A 



Di V2.A 



01 V4.A 



OP 



DA 



ARITri 

ZA3 

M 

SR 

2A3 

BLX 

XA 

b 

ST2 



OPERAND 

ARITH EXAMPLE 6. 

1 

00»07A4.4 

10il5A2.4 

20.25A2.4 

30»39A6.4 

CuNS TAN T = PRESSURE* VOLUME /CENT I GRADE 

PRESSURES. 7) 

VOLUME(0*b) 

4 

CENTlGRADE(0»5) 

93*DI Vl.A 

MACREG.l »0+5 

DIV2.A 

CONSTANT (0*9) 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



00002 



THE FOLLOWING IS GENERATED OUT OF LINE 



b 


DIV3.A+6 TEMP bRANCh FOR GENOS 


bZ3 


0IV3.A 


ZA1 


+ 


SLC 


MACREG.l 


SR 


1 


SLC3 


MACREG.2 


XS 


MACREG.l .10+MACREG.2 


D 


9993 


b 


+ X93 


bXM 


MACREG.ltDI V4.A 


ZA1 


MACREG.l 14*5) 


CI 


+ 11 


bL 


* + 3 


SR2 


10 


b 


2+X93 


STD1 


*td»9)+l 


SRR2 


10 


b 


2+X93 


SLC2 


MACREG.2 


MSP 


MACREG.l 


XS 


MACREG.2 »0+MACRdG.l 



00003 



00004 



00005 



00006 



+000325032b 



07 


0325 


05 


0326 


05 


0327 


09 


0328 



0329 +3300070325 

0330 +5300050326 

0331 -5000000004 

0332 +3300050327 

0333 +0200930338 

0334 +4700010005 

0335 +0100090346 

0336 +2200090328 



0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 



+0100090370 
+3000090364 
+1300000372 
-5000010300 
-5000000001 
+5000023300 
-4702010010 
-5300099993 
+0193090000 
-4400010355 
+1300450001 
+1500120372 
+4000090352 
+5000002010 
+0193090002 
-1200890353 
+5000002110 
+0193090002 
+5000022300 
-0300910001 
-4701020000 



SL 

ZA2 +9999999999 

SR 

b 2+X93 

L i TERALS 

+5000000000 

+9999999999 

+ 

+ 11 



0366 -5000000200 

0367 +2300090371 

0368 -5000000000 
00009 0369 +0193090002 

09 0370 +5000000000 

09 0371 +9999999999 

00 0372 +0 

12 0372 + 11 



0325 
0326 
0327 

0326 




0370 
0371 





PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



Oi 1520 

02 1521 

03 1522 

04 1523 

05 1524 

06 1525 

07 1526 
Oo 

OV 
10 
11 
12 
13 
14 
15 
16 
17 
18 

1 Si 
20 
2i 
22 
23 
24 
25 
26 

2 7 
28 
29 

30 1527 

31 15281 
3^ i5282 
33 

34 
35 



ANYLAdEL 
ANYLAticL 



ARITH EXAMPLE 7 
DA 1 

00t07A4.4 
08»15A4.4 
20i29F 

ARITH X=A-B+15/ (A-B) 

ZS2 a(Oil) 

SL2 2 

S2 B(2»3) 

SL2 4 

A2 A(0»7) 

ST2 C0MAREA.A(0t9)+i 

ZA2 +15 

ZA3 CCMAREA.A(0.9)+1 

BLX 93»DIV1.A 

XA MACREG.1»0+1 

B DIV2.A 

ST2 C0MAREA.A(Q.9)+1 

ZS2 B(O.l) 

SL2 2 

S2 d(2i3) 

SL2 4 

A2 A(0»7) 

A2 COMAREA.A(0»9)+1 

ZA1 +0 

ZA3 +0000000070 

aLX 94»FL0T2.A 

ST1 X(0i9) 

TnE FOLLOWING IS GENERATED OoT OF LINE 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 

+0003250327 



00001 



00002 



00003 



00004 



00005 



07 


0325 




0325 


89 


0325 




0325 


09 


0327 




0327 




0328 


-2300890325 






0329 


+5000002202 






0330 


-2400010326 






0331 


+5000002204 






0332 


+2400070325 






0333 


+2200090392 






0334 


+2300340396 






0335 


+3300090392 






0336 


+0200930351 






0337 


+4700010001 






0338 


+0100090359 






0339 


+2200090392 






0340 


-2300890325 






0341 


+5000002202 






0342 


-2400010326 






0343 


+5000002204 






0344 


+2400070325 






0345 


+2400090392 






0346 


+1300000396 






0347 


+3300090393 






0348 


+0200940385 






0349 


+1200090327 





BZ3 
ZAi 
SLC 



DIV3.A+6 TEMP 
01 V3.A 
+ 
MACREG.l 



>RAKCh FOR GENOS 



00006 



0350 +0100090383 

0351 +3000090377 

0352 +1300000396 

0353 -5000010300 



24 


X 






STD3 


9991<0»1) 


25 


X 


FLOi 


"3. A 


D 


+ X94 


26 


X 


COM^ 


iRcA.A 


DA 












LI TERALi 


2 7 


X 








+0000000070 


2 b 


X 








+5000000000 


2 V 


X 








+9999999999 


3u 


X 








+ 


31 


X 








+ 11 


3<- 


X 








+ 15 



00013 



00014 09 
09 
09 
00 
12 
34 



0387 -3400450001 

0388 +5000001002 

0389 -3200019991 

0390 +0194090000 
+0003910392 

0393 +0000000070 

0394 +5000000000 

0395 +9999999999 

0396 +0 
0396 + 11 
0396 + 15 



0393 
0394 
0395 
0396 
0396 
0396 



ERROR MESSAGE LIST 
PG/LN MESSAGE 
AA 07 ARITH W 20 0404 



ARITH Example 7 

Warning message W 20 has been produced because the division operation 
might develop more integer digits than can be accommodated by the mask 
4. 4, which has been included in the message in the form 0404. 



PAGt AA PROGRAM 

LiM CDREF LmBEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



Ci 


101 




# 




ARITH EXAMPLE 8 


0- 


102 






DA 


1 


03 


103 




A 




03.19A9.8 


04 


104 




B 




37.49A9.4 


05 


105 




c 




53.69A9.8 


06 


106 




D 




72.79A5.3 


07 


107 




RESULT 




80.99A12.8 


ou 


108 




* 






oy 


109 




ANYLABEL 


ARITH 


RESULT- (A+B-ABS ( C ) ) »D/A 


10 




X 


ANYLAtsEL 


ZA1 


CIO. 6) 


n 




X 




ZA2 


CI7.16) 


12 




X 




MSP 


9991 


13 




X 




MSP 


9992 


14 




X 




STl 


COMAREA.AIO.91+2 


15 




X 




ST2 


COMAREA.A(0.9)+3 


16 




X 




ZA1 


+ 


17 




X 




ZA2 


BIO. 2) 


18 




X 




SL 


1 


19 




X 




A2 


BI3.3) 


20 




X 




BLX 


94. LINK. A 


21 




X 




SL 


8 


22 




X 




Al 


AI0.6) 


23 




X 




A2 


AI7.16) 


24 




X 




BLX 


94. LINK.. A 


25 




X 




SI 


COMAREA.AI 0.9 1+2 


26 




X 




S2 


COMAREA.AI 10.191+2 


27 




X 




BLX 


94. LINK. A 


28 




X 




STl 


COMAREA.AI 0.9) 


29 




X 




ST2 


COMAREA.AI10.19) 


30 




X 




ZA1 


+ 


31 




X 




ZA2 


D10.7) 


32 




X 




BLX 


94. LI NK.A 


33 




X 




BLX 


93.DUBLMPY.A 


34 




X 




XS 


MACREG.l .0+17 


35 




X 




B 


DUBLCK.A 


36 




X 




STl 


COMAREA.AI0.9) 


37 




X 




ST2 


COMAREA.AU0.19) 


38 




X 




ZA1 


AI0.6) 


39 




X 




ZA2 


AI7.16) 


40 




X 




BLX 


94. LINK. A 


41 




X 




BLX 


93.DUBLDI V.A 


42 




X 




XA 


MACREG.l .0+11 


43 




X 




B 


D'JdLCK.A 


44 




X 




STl 


RESULT lO.'i) 


45 




X 




S12 


RtSUL T (10.19) 





+0003250334 




39 0325 




0325 


79 0328 




0328 


39 0330 




0330 


29 0332 




0332 


09 0333 




0333 


0335 


+1300390330 




0336 


+2300090331 




0337 


-0300919991 




0338 


-0300919992 




0339 


+1200090511 




0340 


+2200090512 




0341 


+1300000516 




0342 


+2300790328 




0343 


-5000000201 




0344 


+2400000329 




0345 


+0200940372 




0346 


-5000000208 




0347 


+1400390325 




0348 


+2400090326 




0349 


+0200940372 




0350 


-1400090511 




0351 


-2400090512 




0352 


+0200940372 




0353 


+1200090509 




0354 


+2200090510 




0355 


+1300000516 




0356 


+2300290332 




0357 


+0200940372 




0358 


+0200930395 




0359 


-4700010017 




0360 


+0100090431 




0361 


+1200090509 




0362 


+2200090510 




0363 


+1300390325 




0364 


+2300090326 




0365 


+0200940372 




0366 


+0200930453 




0367 


+4700010011 




0368 


+0100090431 




0369 


+1200090333 




0370 


+2200090^34 





46 
4/ 
4b 



110 
111 



T.iE FOLLOWING li> utNLKAi'tu Ou f Oh LI Nil 
B LiNKd.A+1 



0371 +0100090394 



LN 


CDREF 


LABEL 




OP 


OPERAND 


Ox 


X 


LINK. 


A 


BV2 


LINK1.A IS THERE A CARRY 


02 


X 


LI NK3 


.A 


BZ2 


LI NK4.A 


03 


X 






BZ1 


LINK5.A 


04 


X 






BM1 


LINK6.A 


03 


X 






BM2 


LINK7.A 


06 


X 


L 1 NK.4 


.A 


SR 


USE SIGN OF 9991 


07 


X 


LINKS 


• A 


SL 


USE SIGN OF 9.992 


Ob 


X 






B 


0+X94 


OS- 


X 


L i NKi 


.A 


6M2 


Ll NK2.A 


lO 


X 






Al 


+1 POSITIVE CARRY 


li 


X 






B 


LINK3.A 


12 


X 


LINK2 


.A 


SI 


+1 NEGATIVE CARRY 


13 


X 






B 


LINK3.A 


14 


X 


Ll NK6 


.A 


BM2 


0+X94 ARl BOTi-I ACC MINUS 


15 


X 






Al 


+1 REVERSE CARRY (NEG) 


16 


X 






S2 


+9999999999 COMPLEMENT + SIGNG) 


17 


X 






S2 


+ 1 CHANGL 9992 ,MG ) 


lb 


X 






B 


+ X94 


19 


X 


LINK7 


.A 


SI 


+1 REVERSE CARRY IPOS) 


20 


X 






A2 


+^999999999 COMPLEMENT + SIGNS) 


21 


X 






A2 


+1 CHANGl 9992 


22 


X 


L 1NK8, 


• A 


B 


0+X94 


23 


X 






B 


HOLD.A+3 TEMP BRANCH 


24 


X 


OUBLMPY.A 


SLC 


MACREG.l 


25 


X 






ZSTl 


MULT. A 


26 


X 






ZST2 


MULT.A+1 


27 


X 






ZA1 


CQMAREA.A 


28 


X 






ZA2 


COMAREA.A+1 


29 


X 






SLC 


MACREG.2 


30 


X 






XA 


MACREG.1.0+MACREG.2 


31 


X 






ZSTl 


HOLD. A 




X 






ZA3 


9992 ^^ 














35 


X 






A3 


+ 5000000000 " "~~ ^--___^ _____ 


36 


X 






B 


DUdLOVFL.A+2 ^ ' 


37 


X 






DA 


1 


38 


X 


DSOR. 


A 




00,19 


39 


X 


QUOT. 


A 




20»29 


40 


X 


CQMAREA.A 


DA 












L 1 TERALS 


41 


X 








+0000010009 


42 


X 








+5000000000 


43 


X 








+9999999999 


44 


X 








+ 


45 


X 








+ 1 


46 


X 








+ 20 



CDNO FD LOC INSTRUCTION 



PAGE AB 
REF 



00009 



00010 



00011 



00012 



00013 



00014 



0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0360 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 



+2100090380 
+2000090377 
+1000090378 
-1000090385 
-2000090390 
-5000000000 
-5000000200 
+0194090000 
-2000090383 
+1400110516 
+0100090373 
-1400110516 
+0100090373 
-2094090000 
+1400110516 
-2400090515 
-2400110516 
+0194090000 
-1400110516 
+2400090515 
+2400110516 
+0194090000 
+0100090430 
-5000010300 
-1100090425 
-2100090426 
+1300090509 
+2300090510 
-5000020300 
+4702010000 
-1100090427 
+3300099992 




+0005060508 



09 


0506 




0506 


09 


0508 


+0005090512 


0508 


00035 09 


0513 


+0000010009 


0513 


09 


0514 


+5000000000 


0514 


09 


0515 


+9999999999 


0515 


00 


0516 


+ 


0516 


11 


0516 


+ 1 


0516 


23 


0516 


+ 20 


0516 



ERROR MESSAGE LIST 
PG/LN MESSAGE 
AA 09 ARITH W 20 1208 



ARITH Example 8 

Warning message W 20 has been produced because a multiplication or 
division operation might develop more integer digits than can be ac- 
commodated by the mask 12. 8, which has been included in the message 
in the form 1208. 



COMP — Compare and Branch 



comp generates instructions to compare two fields and to branch according to the 
results of the comparison. 

Source Program Format The basic format for the comp statement in the source program is as follows: 



Line 
3 5 


Label 

6 


15 


Operation 

16 20 


21 25 30 


OPERAND Basic A 

35 40 45 50 ) 


I 
2 


ANY LA.BEL, 




COMP, 


F I.E.L.D.I.. F,l E.LD2, 


. L,OWBR,.,EQUB R, . H 1 G H,B R ) 


i , i i , _ 




i i i i i i i i i i i i 


( 



Processing Techniques 



anylabel may be any symbolic label; it may be omitted. The entry comp must 
be written exactly as shown. fieldI and field2 are either the symbolic names 
of the fields to be compared, or alphameric or numerical literals. Adcons are not 
permitted, lowbr, equbr, and highbr are the symbolic labels of instructions to 
which the program will branch if fieldI has the following relation to field2, de- 
pending on the mode: 

MODE LOWBR EQUBR HIGHBR 



Numerical 
Alphameric 



is less than 
precedes 



equals 

is identical to 



is greater than 
follows 



These results are determined by comparison techniques described under "Process- 
ing Techniques," below. 

The basic format may be varied in two ways: 

1. If the comparison is between numerical fields, either one or both may be 
replaced by the expression abs(fieldx), in which case the absolute value of 
the field will be used for the comparison. The parentheses must be written 
as shown. An attempt to take the absolute value of an alphameric field will 
result in an error message during assembly. 

2. One or two of the branch addresses may be omitted. Instead of the missing 
branch, the object program would then take the next instruction. If another 
branch is specified after an omitted branch, separating commas must be 
punched; e.g., fieldI, field2, lowbr, , highbr. 



All comparisons are made on the basis of the standard ibm 7070 collating se- 
quence. The fields to be compared may be numerical (either automatic-decimal 
or floating-decimal) or alphameric. 



Limitations on Length 



The number of parameters is limited by the format. Automatic-decimal fields to 
be compared may bridge words but may not exceed twenty digits in length. 
Floating-decimal numbers must be contained within one location. Numerical 



144 



literals may not exceed twenty digits in length and must be signed. There is no 
limit on the length of alphameric fields, except that alphameric literals may not 
exceed 120 characters. 



Address Modification 



Modification by indexing and address adjustment is permitted on all symbolic 
addresses. 



The Effect of COMP 



Comparison of numerical fields is accomplished by subtraction, the correct 
branch address being determined by a negative, zero, or positive difference. 

When an automatic-decimal number is to be compared to a floating-decimal num- 
ber, the automatic-decimal number is first converted to floating-decimal format. 

For the comparison of two automatic-decimal fields, the alignment of decimal 
points is automatic. If, after alignment of decimal points, the total number of 
integer and decimal digits in both fields is larger than 20, the excess number of 
digits will be truncated on the right without rounding; no warning message will 
be issued. A difference between the numbers in the truncated digits would not 
register in the comparison. Thus, if the following fields were to be compared 
using the comp macro-instruction, the transfer would be to equbr: 



Fields 



Format Specifications 



Object Program Contents 



fieldI 
kield2 



A12.8 
A2.18 



000000000001.23456789 

01.234567891000000000 



Error and Warning 
Messages 



ii an automatic-decimal field of more than twenty digits in length is compared 
to a floating-decimal field, an automatic-decimal field, or an alphameric field, a 
warning message will be issued. Instructions will be generated to compare the 
absolute values of the fields. 

ir a numerical field (either automatic-decimal or floating-decimal), which is of 
proper length, is compared to an alphameric field, a warning message will be 
issued. Instructions will be generated to compare the absolute values of the 
fields. 

Fields containing numbers that are in double-digit representation must be con- 
verted to single-digit form before the comp statement is employed (e.g., by use 
of the edmov macro-instruction). But numerical fields of different modes may 
be compared to each other, as may fields of the various alphameric types. 

It should be noted that the comp macro-instruction treats all fields according to 
their defined characteristics (or the absence of them), and not according to their 
object-program contents. Thus, difficulties may arise if numerical data is stored in 
fields defined as alphameric, or vice versa. 

The following error and warning messages will be issued during assembly under 
the conditions specified: 

ALL BRANCHES BLANK 

All branches have been omitted from a comparison in which one or both of 
the fields are absolute. The comparison is made; three branches will be gen- 
erated to the next in-line instructions (*, *+l, and *+2) for patching pur- 
poses. 

ALL BRANCHES EQUAL 

All three branches are identical; coding will be generated. 



COMP 



145 



FIELD 1 BLANK 

Field 1 has been omitted. A nop will be generated. 

FIELD 2 BLANK 

Field 2 has been omitted. A nop will be generated. 

FIELD 1 NOT ACCEPTABLE 

Field 1 is an adcon. A nop will be generated. 

FIELD 2 NOT ACCEPTABLE 

Field 2 is an adcon. A nop will be generated. 

LESS THAN 3 INPUT PARAMETERS 

The minimum input in the comp statement is fieldI, field2, and a branch 
address. The above message is issued if this minimum requirement is not met. 
A nop will be generated. 

NUMERIC FIELD GREATER THAN 20 DIGITS 

A numerical field is greater than 20 digits in length. Instructions will be gen- 
erated to compare the absolute values of the fields. 

W-BOTH FIELDS NOT ALPHA-NOFORM 

Either one field is alphameric and the other is not or one field is unspecified 
("noform") and the other is not. Instructions will be generated to compare 
the absolute values of the fields. 

W-UNUSUAL BRANCH CONDITION 

A branch address in the operand of the comp statement has not been left blank 
or is an address other than the label of an imperative statement (symbolic 
machine instruction or macro-instruction), or an actual storage address. 

Examples Tne following are examples of acceptable coding for the comp macro-instruction. 

For each, the associated source-program entries are given, followed by the comp 
statement, coding generated in-line, and (where applicable) coding generated 
out-of-line. 
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PAGE AA PROGRAM 

LN CDREF LAtitL 



01 
0^ 
Oj 
04 
05 
06 
07 
08 
09 
10 
11 

12 

13 
14 
lb 
16 
17 
18 
IV 
20 
21 
22 
23 
24 
Z'j 
26 
2 7 



115 
116 
117 
118 
119 
120 
121 
122 
123 



124 
12b 
126 



F lELUl 

FIELD2 

LOWBR 

EuUALBR 

rilGHBR 

* 

ANYLAtJLL 
ANYLABEL 



NK.A 
NK3.A 



OP 



DA 



NOP 
NOP 
NOP 

COMP 

ZS1 

ZS2 

BLX 

SL 

Al 

A2 

BLX 

BZ2 

d 

BZl 

BM1 

B 



OPERAND 



COMP tXAMPLf 



7070 COMPILER SYSTEM VERSION OMY08t CHANGE LEVEL 00001* PAGE AA 

CDNO FD LOC INSTRUCTION REF 



1* 



0*»19A8.10 

23»39A8«9 

REPRESENTS FIRST 
REPRESENTS F IRST 
REPRESENTS F IRST 



29 

39 



INSTRUCTION OF BRANCH ROUTINE- 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



00001 



+0003250328 
0325 
0327 

0329 -0100090000 

0330 -0100090000 

0331 -0100090000 



FltLDl»FIELD2»LQWbR»cQUALBR»HIGHBR 

FIELD2(0»6) 

FIELD2(7»16) 

94,LINK»A 

1 

FiELDl(0»7) 

FIELD1(8»17) 

94»LI NK.A 

*+2 

*+2 

EQUALbR 

LOWBR 

HIGHBR 



00002 



00003 



0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 



-1300390327 
-2300090328 
+0200940345 
-5000000201 
+1400290325 
+2400090326 
+0200940345 
+2000090341 
+0100090342 
+1000090330 
-1000090329 
+0100090331 



TnE FOLLOWING IS GENERATED OUT OF LINE 



D 

BV2 

dZ2 



Links. A+i 

LINKl.A IS 
LINK.4.A 



00004 



THERE A CARRY 



0344 +0100090367 

0345 +2100090353 

0346 +2000090350 



A2 +1 CHANGL 9992 

47 X L1NK.8.A B 0+X94 

LITERAL^ 

48 X +9999999999 



0365 +2400000368 

0366 +0194090000 

09 0367 +9999999999 



0325 
0327 




0367 




00 0368 +1 



0368 



COMP Example 1 



The program will branch to LOWBR if FIELD1 is less than FIELD2, 
to EQUALBR if they are equal, and to HIGHBR if FIELD1 is greater 
than FIELD2. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


130 




* 




COMP EXAMPLE 2 


02 


131 






DA 


1 


03 


132 




FIELU1 




02.19A8.10 


04 


133 




FIEL02 




23»39A8.9 


05 


134 




EUUALBR 


NOP 


REPRESENTS FIRST IN. 


06 


135 




* 






07 


136 




ANYLABEL 


COMP 


FIELDltF IELD2* lEUUALBR 


08 




X 


ANYLABEL 


ZS1 


FIELD2(0»6) 


09 




X 




ZS2 


FIELD2(7tl6) 


10 




X 




BLX 


94 ♦LINK. A 


11 




X 




SL 


1 


12 




X 




Al 


FIELD1(0»7) 


13 




X 




A2 


FIELDK8.17) 


14 




X 




BLX 


94. LINK. A 


15 




X 




BZ2 


*+2 


16 




X 




B 


*+2 


17 




X 




BZ1 


EQUALBR 


18 


137 




* 






19 


138 




* 


THE FOLLOWING IS GENERATED OUT 01 


20 


139 




# 






21 




X 




B 


LINK8.A+1 


22 




X 


LINK. A 


BV2 


LINK1.A IS THERE A CARRY 


23 




X 


LINK3.A 


BZ2 


LINK4.A 


24 




X 




BZ1 


LINK5.A 


25 




X 




BM1 


LINK6.A 


26 




X 




BM2 


LINK7.A 


21 




X 


LINK4.A 


SR 


USE SIGN OF 9991 


28 




X 


LINK5.A 


SL 


USE SIGN OF 9992 


29 




X 




B 


0+X94 


30 




X 


LI NK1.A 


BM2 


LINK2.A 


31 




X 




Al 


+1 POSITIVE CARRY 


32 




X 




B 


LINK3.A 


33 




X 


LINK2.A 


Si 


+1 NEGATIVE CARRY 


34 




X 




B 


LINK3.A 


35 




X 


LI NK6.A 


BM2 


0+X94 ARE BOTH ACC MINUS 


36 




X 




Al 


+1 REVERSE CARRY (N£G) 


37 




X 




S2 


+9999999999 COMPLEMENT + 


38 




X 




52 


+1 CHANGE 9992 NG ) 


39 




X 




B 


0+X94 


40 




X 


LINK7.A 


SI 


+1 REVERSE CARRY ( POS ) 


41 




X 




A2 


+9999999999 COMPLEMENT + 


42 




X 




A2 


+1 CHANGE 9992 


43 




X 


LINK8.A 


B 


0+X94 










L iTERALa 


44 




X 






+9999999999 


45 




X 






+ 1 



RST INSTRUCTION OF BRANCH ROUTINE 



00001 



00002 



00003 







+0003250328 




29 


0325 




0325 


39 


0327 




0327 




0329 


-0100090000 






0330 


-1300390327 






0331 


-2300090328 






0332 


+0200940341 






0333 


-5000000201 






0334 


+1400290325 






0335 


+2400090326 






0336 


+0200940341 






0337 


+2000090339 






0338 


+0100090340 






0339 


+1000090329 





SlGNG) 



SIGNS) 



00004 



00005 



00006 



00007 



09 
00008 00 



0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 



+0100090363 
+2100090349 
+2000090346 
+1000090347 
-1000090354 
-2000090359 
-5000000000 
-5000000200 
+0194090000 
-2000090352 
+1400000364 
+0100090342 
-1400000364 
+0100090342 
-2094090000 
+1400000364 
-2400090363 
-2400000364 
+0194090000 
-1400000364 
+2400090363 
+2400000364 
+0194090000 



0363 +9999999999 

0364 +1 



0363 
0364 



COMP Example 2 



This example is the same as Example 1 except that both LOWBR and 
HIGHBR have been omitted. The program will continue sequentially 
if FIELD1 is either greater than or less than FIELD2. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 


142 




* 




02 


143 






DA 


03 


144 




FIELD1 




04 


145 






DA 


05 




X 






06 




X 






07 


146 




FIELU2 




OU 


147 




LOWBR 


NOP 


09 


148 




HIGHBR 


NOP 


10 


149 




* 




11 


150 




ANYLAbEL 


COMP 


12 




X 


ANYLABEL 


ZA1 


13 




X 




ZA2 


14 




X 




MSP 


lb 




X 




MSP 


16 




X 




STl 


17 




X 




ST2 


16 




X 




ZSl 


19 




X 




ZS2 


20 




X 




BLX 


21 




X 




SL 


22 




X 




Al 


23 




X 




A2 


24 




X 




BLX 


29 




X 




BZ2 


26 




X 




d 


27 




X 




BZ1 


2b 




X 




BM1 


29 




X 




B 


30 


151 




* 




31 


152 




* 


THE FOL 


32 


153 




* 




33 




X 




B 


34 




X 


LINK. A 


BV2 


35 




X 


LINK3.A 


dZ2 


36 




X 




-—- 



03 
04 
05 
06 
07 
Ob 

09 
10 



OPERAND 

COMP EXAMPLE 3. 

1 

02»19A6.10 

2.RDW.0+INDEXWORD 



23.39A8.9 

REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 

AdSIFIELDI ) »FlELD2»LOWBR»»HIGHBR 

FIELDl(0t7) 

FIELD1 (8 t J.7) 

9991 

9992 

COMAREA.A(0.9)+2 

COMAREA.A<0.9)+3 

F IELD2(0»6)+INDEXWORD 

F I ELD2 < 7 » 16 ) + I NDEXWORD 

94. LINK. A 

1 

COMAREA.A(0»9)+2 

COMAREA.AI 10»19)+2 

94. LINK. A 

*+2 

* + 2 

*+3 

LOWBR 

HIGHBR 



7070 COMPILER SYSTEM VERSION OMY08# CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



29 



00001 



00002 



00003 



00004 



00005 



+0003250326 
0325 

+0003270336 

0327 +0003290332 

0328 -0003330336 
0331 

0337 -0100090000 

0338 -0100090000 



0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 



+1300290325 
+2300090326 
-0300919991 
-0300919992 
+1200090382 
+2200090383 
-:1301390002 
-2301090003 
+0200940358 
-5000000201 
+1400090382 
+2400090383 
+0200940358 
+2000090354 
+0100090355 
+1000090357 
-1000090337 
+0100090338 



THE FOLLOWING IS GENERATED OUT OF LINE 



LINK8.A+1 

LINK1.A IS THERE A CARRY 

LINK4.A 



00006 



0357 +0100090380 

0358 +2100090366 

0359 +2000090363 

0360 +1000090364 

0361 -1000090371 



LINK7.A 



LINK8.A 
COMAREA.A 



B 

SI 

A2 

A2 

B 

DA 

LI TERALS 

+9999999999 

+ 1 



0+X94 

+1 REVERSE CARRY ( POS ) 

+9999999999 COMPLEMENT + SIGNS) 

+1 CHANGE 9992 

0+X94 



0374 -2400000385 

0375 +0194090000 

0376 -1400000385 

00010 0377 +2400090384 

0378 +2400000385 

0379 +0194090000 
+0003800383 

00011 09 0384 +9999999999 
00 0385 +1 



0325 

0327 
0328 
0002 




0384 
0385 



COMP Example 3 



& 



The program will branch to LOWBR if the absolute value of FIELD1 
is less than FIELD2 and to HIGHBR if it is greater. If the absolute 
value of FIELD1 equals FIELD2, the program will continue sequen'^fy. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 


157 




* 




02 


156 






DA 


03 


159 




FIELD1 




0* 


160 






DA 


05 


161 




FIELD2 




06 


162 




LOWBR 


NOP 


07 


163 




EUUALbR 


NOP 


08 


164 




HiGHbR 


NOP 


09 


165 




* 




10 


166 




ANYLAbtL 


COMP 


11 




X 


ANYLAbEL 


ZAA 


12 




X 




CA 


13 




X 




BL 


14 




X 




SH 


15 




X 




ZAA 


16 




X 




CA 


17 




X 




BL 


ia 




X 




BE 


19 




X 




B 


20 


167 




* 





OPERAND 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



COMP EXAMPLE 4. 

2..0+INDEXWORD 

00tl9' 

1 

20.39' 

REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 

F I ELD1.F I ELD2.LOWBR. EQUALBR .HIGHBR 

FIELD2(0i9) 

FIELDl(0t9)+INDtXW0RD 

HIGHBR 

LOWBR 

FIELD2I 10.19) 

FIELD1110.19)+INDEXWORD 

HIGHBR 

EQUALBR 

LOWBR 



00001 



00003 



+0003250328 
0325 

+0003290332 
0331 

0333 -0100090000 

0334 -0100090000 

0335 -0100090000 



0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 



+1600090331 
-1501090000 
+4000090335 
-4000090333 
+1600090332 
-1501090001 
+4000090335 
-4100090334 
+0100090333 



0000 
0331 



COMP Example 4 

If FIELD1 precedes, is identical to, or follows FIELD2 in the standard 
collating sequence, the program will branch to LOWBR, EQUALBR or 
HIGHBR, respectively. 



PAGE AA PROGRAM 

LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 

oa 

09 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



171 
172 
173 
174 
175 
176 
177 
178 
179 



FIELD2 
DIFFBR 
EQUBR 
* 

ANYLAbEL 
X ANYLAbEL 
X 



OP OPERAND 

COMP EXAMPLE 5. 

DA 2..0+X15 

00.19' 

DA 2..0+INDEXWORD 

20.45' 
NOP REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
NOP REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 

COMP FIELD1.F I ELD2 .D I FFBR . EQUBR. D I FFBR 

ZAA FI£LD1(0.9)+X15 

CA FIELD2(0.9)+INDEXWORD 

BL DIFFBR 

BH DIFFBR 

ZAA FIELD1U0.19I+X15 

CA FIELD2I 10.19J+INDEXWORD 

BL DIFFBR 

BH DIFFBR 

ZA1 FIELD2(0.9)+2+INDEXWORD 

BZ1 EQUBR 

B DIFFBR 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVcL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



+0003250328 



0325 


+0003290338 


0000 


0331 




0002 


0339 


-0100090000 




0340 


-0100090000 




0341 


+1615090000 




0342 


-1501090002 




0343 


+4000090339 




0344 


-4000090339 




0345 


+1615090001 




0346 


-1501090003 




0347 


+4000090339 




0348 


-4000090339 




0349 


+1301090004 




0350 


+1000090340 




0351 


+0100090339 





COMP Example 5 



Fields which are identical will cause a branch to EQUBR; fields which 
differ to DIFFBR. 



PAGE AA 




PROGRAM 




7070 C 


lOMPILER SYSTEM Vtl 


LN 


COREF 




LABEL 


OP 


OPERAND 




01 


184 




* 




COMP EXAMPLE 6« 




02 
03 


185 
186 




FlELDl 


DA 


1 
00.09F 




04 
05 
06 


187 

188 
189 




FIELD2 

ECJUALBR 

HIGHBR 


NOP 
NOP 


10.19F 

REPRESENTS FIRST INSTRUCTION 
REPRESENTS FIRST INSTRUCTION 


OF BRANCH ROUTINE 
OF BRANCH ROUTINE 


07 
06 


190 
191 




* 

ANYLABEL 


COMP 


F 1 ELD1 #F 1 ELD2 »» EQUALBR, H 1 GHBR 




09 
10 
11 




X 
X 
X 


ANYLABEL 


2A1 

SI 
BV1 


FIELD1(0»9) 
FIELD2(0»9) 

*+2 




12 
13 
14 




X 
X 

X 




BZ1 
BM1 
B 


EQUALBR 

#+2 

HIGHBR 




15 


192 




* 









7070 COMPILER SYSTEM VERSION OMY08, CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



+0003250326 
09 0325 
09 0326 
00001 0327 -0100090000 
0328 -0100090000 



0329 +1300090325 

0330 -1400090326 

0331 +1100090333 
00002 0332 +1000090327 

0333 -1000090335 

0334 +0100090328 



0325 
0326 



COMP Example 6 



The program will go to the next sequential instruction if FIELD1 is 
less than FIELD2, to EQUALBR if FIELD1 is equal to FIELD2, and 
to HIGHBR if FIELD1 is greater than FIELD2. 



PAGE AA 




PROGRAM 








LN 


CDREF 


LABEL 


OP 


OPERAND 




01 


201 




# 




COMP EXAMPLE 7. 




02 


202 






DA 


1 




03 


203 




FIELD1 




00.39" 




04 


204 




FIELD2 




40»79« 




05 


205 




DIFFBR 


NOP 


REPRESENTS FIRST 


INSTRU 


06 


206 




* 








07 


207 




ANYLABEL 


COMP 


FlELDl»FIELD2»DIFFBR*i 


DIFFBR 


08 




X 


ANYLABEL 


XL 


MACREG.01 *+0000000003 




09 




X 


M.4 


ZAA 


F 1 ELD2 ( »9 ) +MACREG.01 




10 




X 




CA 


FIELD1(0»9)+MACREG.01 




11 




X 




BL 


DIFFBR 




12 




X 




BH 


DIFFBR 




13 




X 




BIX 


MACREG«01*M.4 




14 


206 




# 
















LITERALS 




15 




X 






+0000000003 





NSTRUCTION OF BRANCH ROUTINE 



00001 



00002 



8# 


CHANGE LEVEL 00001 o 


PAGE AA 


FD 


LOC 


INSTRUCTION 
+0003250332 


REF 


09 


0325 




0325 


09 


0329 




0329 




0333 


-0100090000 






0334 


+4500010340 






0335 


+1601090329 






0336 


-1501090325 






0337 


+4000090333 






0338 


-4000090333 






0339 


+4900010335 





09 0340 +0000000003 



COMP Example 7 



0340 



If FIELD1 = FIELD2, the program will continue with the next sequential 
instruction. If not, it will branch to DIFFBR. 



PAGE AA PROGRAM 
LN CDREF LABEL 



'01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 

29 



214 
215 
216 
217 
218 
219 
220 
221 



222 
223 
224 



FIELD1 

FIELD2 

LOWBR 

EQUALBR 

* 

ANYLABEL 
ANYLABEL 



* 
* 
* 
FLOT1.A 

FLOT2.A 



FLOT3.A 



OP 



DA 



NOP 
NOP 

COMP 

2A1 

2A2 

ZA3 

BLX 

Si 

BV1 

BZl 

BM1 

B 



OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001 • PAGE AA 

CDNO FD LOG INSTRUCTION REF 



COMP EXAMPLE 8. 

1 

00.09F 

10»29A13.7 

REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 

FIELDltF I ELD2» LOWBR f EQUALBR 

FIELD2(0*9) 

FIELD2(10»19) 

+0000000063 

94.FLOT2.A 

FIELDl(0t9) 

*+2 

EQUALBR 

*+2 

LOWBR 



00001 



00002 



00003 



THE FOLLOWING IS GENERATED OUT OF LINE 

SLC1 MACREG.l 

B *+2 

SLC MACREG«1 

BZl 0+X94 

S3 MACREG.K4.5) 

SRI 2 

STD3 9991(0*1) 

B 0+X94 

LITERALS 

+0000000063 



00004 





+0003250327 




09 0325 




0325 


09 0326 




0326 


0328 


-0100090000 




0329 


-0100090000 




0330 


+1300090326 




0331 


+2300090327 




0332 


+3300090347 




0333 


+0200940341 




0334 


-1400090325 




0335 


+1100090337 




0336 


+1000090329 




0337 


-1000090339 




0338 


+0100090328 




0339 


+5000011300 




0340 


+0100090342 




0341 


-5000010300 




0342 


+1094090000 




0343 


-3400450001 




0344 


+5000001002 




0345 


-3200019991 




0346 


+0194090000 





09 0347 +0000000063 



0347 



COMP Example 8 



The program will continue with the next instruction if FIELD1 is greater 
than FIELD2. It will branch to EQUALBR if FIELD1 equals FIELD2 and 
to LOWBR if FIELD1 is less than FIELD2. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION 0MY08I CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

lb 

16 

17 

16 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



45 
46 

47 
48 



227 
228 
229 
230 
231 
232 
233 
234 
235 
236 



COMP EXAMPLE 9 



AREANAME 

FIELD1 

FIELD2 

LOWBR 

EQUALBR 

HIGHBR 

* 

ANYLABEL 

AN YL Ad EL 



DA 



NOP 
NOP 
NOP 

COMP 

zsi 

ZS2 

BLX 

SL 

Al 

A2 

BLX 

BZ2 

B 

BZ1 

BM1 

B 



3»»0+INDEXWQRD 

Q2»19A8.10 

23t39A8.9 

REPRESENTS 
REPRESENTS 



29 
39 



FIRST INSTRUCTION OF BRANCH ROUTINE 
FIRST INSTRUCTION OF BRANCH ROUTINE 



00001 



REPRESENTS f'|RST INSTRUCTION OF BRANCH ROUTINE 



+0003250336 
0325 
0327 

0337 -0100090000 

0338 -0100090000 

0339 -0100090000 



FIELDl»FlELD2»LOWsR» 

EQUALBR»HIGHBR 

FIELD2(0»6)+INDEXWORD 

FIELD2(7»16)+INDEXWQRD 

94»LI NK.A 

1 

F I ELD1 ( »7 ) + I NDEXWORD 

FIELD1(8»17)+INDEXW0RD 

94»LINK.A 

*+2 

* + 2 

EQUALBR 

LOWBR 

HIGHBR 



REMARKS MAY 
BE USED. 



00002 



00003 



0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 



-1301390002 
-2301090003 
+0200940353 
-5000000201 
+1401290000 
+2401090001 
+0200940353 
+2000090349 
+0100090350 
+1000090338 
-1000090337 
+0100090339 



237 
238 
239 



* 

LiNK. A 
LINK3.A 



ThE FOLLOWING IS GENERATED OUT OF LINE 



LINK4.A 
LINK5.A 



NK.1.A 



B 

BV2 

BZ2 

BZ1 

BM1 

BM2 

SR 

SL 

B 

BM2 



LINK8.A+1 

LINK1.A IS THERE A CARRY 

LINK4.A 

LINK5.A 

LINK.6.A 

LINK7.A 

USE SIGN OF 9991 

USE SIGN OF 9992 

0+X94 

LINK.2.A 



00004 



00005 



0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 



+0100090375 
+2100090361 
+2000090358 
+1000090359 
-1000090366 
-2000090371 
-5000000000 
-5000000200 
+0194090000 
-2000090364 



X LINK.7.A 

X 

X 

X LINK.8.A 



SI 
A2 
A2 
B 



+1 REVERSE CARRY ( POS ) 
+9999999999 COMPLEMENT + SIGNS) 
+1 CHANGE 9992 
0+X94 



0370 +0194090000 

0371 -1400000376 
00008 0372 +2400090375 

0373 +2400000376 

0374 +0194090000 




09 
00 



0375 +9999999999 

0376 +1 



0000 
0002 





0375 
0376 



S5 



CYCLE -Cycle Branch 
RECYC -Reset Cycle 



Source Program Format 



cycle generates instructions to branch a specified number of times to each of a 
series at locations, recyc generates instructions to reinitialize one or more cycle 
macro-instructions. 

Js h Mrows f0rmatS fOT ^ CYCLE and ^ YC Statements in *** source P r °gram are 



Line 



o i , 

2 



Label 



A.N.YLA.BEL 



ANYL A.BEL 



Operation 
16 20 

CYCLE 



RECYC 



OPERAND 



Basic Autocoder 
50 55 



BRANCH!,, ,C ,0,UN,T,ER.l . B.R ,AfLCJj^ J C&UN T.E,R 2,. ,efc 



CY.C.L El .CYCLE? ,,A,ty 




In these examples, anylabel is any symbolic label; it may be omitted. The en- 
taies cycle and recyc must be written exactly as shown. In the cycle statement 
the various branch entries are the symbolic labels of instructions to which the 
program will transfer, taking each branch from left-to-right and going to each 
as many times as is specified by the associated counterx. The branching will 
occur every time the program reaches the position originally occupied by the 
cycle statement. After each branch is taken, it is assumed that the program will 
return to a location preceding the location of the cycle statement or to that loca- 
tion itself. The counters may be symbolic or they may be unsigned actual in- 
tegers (representing literal count numbers) up to a maximum of ten digits If the 
reference is symbolic, the count number must be stored in a single location ■ 
i.e it may not bridge words. Symbolic and literal counters may be freely mixed 
withm the operand of a single cycle macro-instruction. 

After all branches have been executed the number of times indicated the next 
pass though the cycle statement will resume the entire process from the begin- 
ning. However, if there is only one branch and one counter, the macro-instnic- 
tion becomes inactive (in effect, a nop) after the branch has been made the 
requisite number of times, and the program continues sequentially. 

The cyclex entries in the operand portion of the recyc statement are the labels 
of cycle macro-instructions. The recyc macro-instruction will restore the set- 
tangs of the various counters in these cycle statements to their original values 
Thus, after a cycle statement has been named in a recyc macro-instruction the 
next program pass through that cycle instruction will result in a "first-time" trans 
fer to the branchI address. 



154 



Processing Techniques 
Limitations on Length 



The format of the cycle instruction may be modified in two ways: 

1. A branchx may be omitted, with separating commas entered as in the fol- 
lowing example: 



Line 
3 5 


Label 
6 IS 


Operation 
16 20 


OPERAND \ 

21 25 30 35 40 45 ( 


1 
2 


ANY L A.BEL 


CYCLE 


B.R 1 1...C.T.R.1,....C.T,R.2 I 






i i i i i i i i I I I i r ! i i . 1 i ! i : l\ 



If this is done, the program will go to the next instruction of the source pro- 
gram for the specified number of times, instead of to the missing branchx 
address. Thereafter, the next indicated branch will be taken as usual. In 
particular, it is possible to omit the branchI, beginning the operand portion 
of the cycle statement with a comma. In that case, the cycle statement will, 
in effect, result in a nop on the first n program passes, where n is the num- 
ber specified by the counterI. 

The last counter may be omitted as follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45/ 


1 . _ 
2 


ANYLA.BEL, 


CYCLE 


B.R.I.. C.TR1, .B.R2.CT.R2 ...B.R.3. , , . J 


i i i . i i 


i 1 l 


' 1 1 ■ 1 1 1 ■ , 1 1 1 . ! l\ 



This will cause the program to branch permanently to the last branch after 
the other branches have been executed the required number of times. These 
two devices may be combined in a single cycle statement; for an example, 
see "Limitations on Length," below. 

If the counters are symbolic, the number of times the program is to branch to 
each location must have been entered into the proper field before the set of in- 
structions generated by cycle is entered for the first time. When the program 
reaches the cycle instruction, all counters in the operand are locked; they can- 
not be altered until all branches have been executed as required, except through 
a recyc macro-instruction. Since the branches are taken from left-to-right, it is 
possible to alter the counter for a prior branch while a given branch is being 
taken. This change will take effect when the entire cycle is restarted. 



A maximum of five branch and counter pairs, including omitted parameters, 
may be entered. If more than five pairs are required, two successive cycle 
macro-instructions may be written as follows: 



Line 

3 5 


Label 

6 15 


Operation 

16 20 


OPERAND BasIc Autocoder _f 

21 25 30 35 40 45 50 55 / 


1 , 


ANYLA.BELl, 


CYCLE 


BR.l.. .C.T.R.l,, B.R2,,CT,R2 , BR, 3,, C T,R,3 , B R 4,,,C T R,4, , . ,\ 


2 


ANY LA.BEL2 


CYCLE 


BR,5,, 1 C,T,R5,, | B,R6 I ,,C I T,R6, , etp. S 


3 




, 


i 



CYCLE & RECYC 
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The first cycle statement will become inactive after the fourth branch has been 
taken the required number of times; the program will then permanently "fall 
through" to the second statement. 

recyc allows for 94 entries in the operand portion. 



Address Modification 



All symbolic addresses may be modified by indexing and address adjustment. 



Error and Warning 
Messages 



The cycle macro generator will issue the following error and warning messages 
during assembly under the conditions specified: 



ASSUME COMMAS AFTER PAR. 2 — PERMANENT NOP 

This warning message is issued if the operand contains only one branch and 
one counter. After the branch has been taken the specified number of times, 
the macro-instruction will not be reinitialized (which would make it the 
equivalent of an unconditional Branch ) but will become permanently inactive 
(nop). This is what would happen if the counter were followed by two 
commas. 

BRIDGE CTR USING FIRST LOC ONLY PAR XX 

A symbol counter has been used that bridges two storage locations. The mes- 
sage will give the parameter number of the faulty entry in place of the xx. 
Only the digits from the portion in the first location will be used as the 
counter. 

error — improper operand 

This message is issued if there are less than two or more than ten parameters 
in the operand, or if an omitted counter is followed by another branch, 
which would never become effective. 

WARNING — SUCCESSIVE NOPS 

This message will be issued if two successive branches have been omitted from 
the operand. Nevertheless, the appropriate coding will be generated as if the 
double omission were intentional. 

The recyc macro generator will issue the following error message under the con- 
dition specified: 

PARAM NOT LABEL OF CYCLE MACRO XX 

The xx will be replaced by the number of the parameter which is not the label 
of a cycle statement. 



Examples 



The following are examples of acceptable coding for the cycle and recyc macro- 
instructions. For each, the associated source-program entries are given, followed 
by the cycle or recyc statement, coding generated in-line, and (where appli- 
cable ) coding generated out-of-line. 



256 



PAGE AA PROGRAM 

LN CDREF LAbEL OP QPlRAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


243 




* 




CYCLE EXAMPLE 1. 


02 


244 




BRANCHA 


NOP 


REPRESENTS FIRST 


03 


243 




branchb 


NOP 


REPRESENTS F IRST 


Q<* 


246 




* 






05 


247 




ANY LABEL 


CYCLE 


BRANCHAii »bRANCHb»l 


06 




X 


ANYLAbEL 


NOP 


M.l 


07 




X 




MSP 


ANYLABEL 


08 




X 




B 


BRANCHA 


09 




X 


M.l 


MSM 


ANYLABEL 


10 




X 




B 


BRANCHB 


11 




X 


M.6 


NOP 





12 




X 


ORIGIN 


CNTRL 


*-l 


13 


248 




* 







INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



00001 



00002 



0325 -0100090000 

0326 -0100090000 



0327 -0100090330 

0328 -0300910327 

0329 +010009C325 

0330 -0300610327 

0331 +0100090326 

0332 -0100090000 



CYCLE Example 1 

CYCLE is used in this example to create a strictly alternating condition. 
The first time the program arrives at this instruction, it will branch to 
BRANCHA, the next time to BRANCHB, then to BRANCHA, then to 
BRANCHB again, and so on for the duration of the program. 



LN 


CDREF 


LABEL 


OP 


OPERAND 




01 


252 




* 




CYCLE EXAMPLE 2. 


i 


02 


253 




POINTX 


NOP 


REPRESENTS 


F IRST 


03 


254 




POINTY 


NOP 


REPRESENTS 


FIRST 


04 


255 




* 








05 


256 




ANYFIELD 


CYCLE 


POINTX»l»POINTY 




06 




X 


ANYFIELD 


NOP 


M.l 




07 




X 




MSP 


ANYFIELD 




08 




X 




B 


POINTX 




09 




X 


M.l 


B 


POINTY 




10 




X 


M.6 


NOP 







11 




X 


ORIGIN 


CNTRL 


*-l 




12 


257 




* 









7070 COMPILER SYSTEM VERSION OMY08t CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



00001 



00002 



0325 -0100090000 

0326 -0100090000 



0327 -0100090330 

0328 -0300910327 

0329 +0100090325 

0330 +0100090326 

0331 -0100090000 






CYCLE Example 2 

When the program arrives at CYCLE the first time, it will branch to 
POINTX. Each subsequent time it will branch to POINTY. 



PAGE AA PROGRAM 

UN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001* PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


261 




• 




CYCLE EXAMPLE 3. 




02 


262 




TOTALLINE 


NOP 


REPRESENTS FIRST INSTRUCTION 


OF 


03 


263 




REPORTLINE 


NOP 


REPRESENTS FIRST INSTRUCTION 


OF 


04 


264 




* 








05 


265 




ANYLABEL 


CYCLE 


REPORTLINEi35iTOTALLINE»l 




06 




X 


ANYLABEL 


NOP 


Mil 




07 




X 




ZSA 


+ 35 




08 




X 




STl 


M. 9(2.5) 




09 




X 




MSP 


ANYLABEL 




10 




X 


M.l 


XL 


MACREG.1.M.9 




11 




X 




XA 


MACREG.lil 




12 




X 




XU 


MACREG.1.M.9 




13 




X 




BXM 


MACREG.ltREPORTLINE 




14 




X 




MSM 


ANYLABEL 




15 




X 




B 


TOTALLINE 




16 


266 




• 








17 


267 




* the following is generated out of line 




16 


268 




• 








19 




X 


M.9 


DA 


1 




20 




X 






00*09 












LITERALS 




21 




X 






+ 35 





BRANCH ROUTINE 
BRANCH ROUTINE 



0325 -0100090000 

0326 -0100090000 



0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 



-0100090331 
-1600010338 
+1200250337 
-0300910327 
+4500010337 
+4700010001 
-4500010337 
-4400010326 
-0300610327 
+0100090325 



+0003370337 



09 0337 
00004 01 0338 +35 



0337 
0338 



CYCLE Example 3 



In this example, the program will branch to the REPORTLINE routine 
35 times, to the TOTALLINE routine once, then to the REPORTLINE 
routine 35 times, to the TOTALLINE routine once, and so on. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPtRAND 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 



2 72 
273 
274 
275 
2 76 



BRANCHONE 
BRANCHTWO 



ANYLABEL 
ANYLABEL 



M.2 
M.6 
ORIGIN 



NOP 
NOP 



CYCLE EXAMPLE 4. 

REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



REPRESENTS FIRST 



00001 



CYCLE BRANCHONt.lt.libRANCHTWO 

NOP 

MSP 

MSM 

B 

NOP 

MSP 

B 

B 

NOP 

CNTRL 



M.l 

ANYLABEL 

M.l 

BRANCHONE 

M.2 

M.l 

M.6 

BRANCHTWO 



*-l 



0325 


-0100090000 


0326 


-0100090000 


0327 


-0100090331 


0328 


-0300910327 


0329 


-0300610331 


0330 


+0100090325 


0331 


-0100090334 


0332 


-0300910331 


0333 


+0100090335 


0334 


+0100090326 


0335 


-0100090000 



CYCLE Example 4 



The first time the program reaches CYCLE, a branch is made to 
BRANCHONE. On the second pass the next instruction following 
those generated by CYCLE is executed, since a branch address was 
omitted. Each subsequent time, a branch is made to BRANCHTWO 
since the final counter was omitted. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001 • PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
1* 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
36 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 



301 
302 
303 
304 
305 
306 
307 
306 



309 



BRANCH1 

BRANCH3 

COUNTER1 

COUNTER2 

COUNTER3 

* 

ANYLABEL 
ANYLABEL 



M.5 



M.6 
ORIGIN 



310 



M.15 
ORIGIN 
SOME LABEL 
SOMELABEL 



CYCLE EXAMPLE 5. 
NOP REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
NOP REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
NOP REPRESENTS COUNTER LABEL 
NOP REPRESENTS COUNTER LABEL 
NOP REPRESENTS COUNTER LABEL 

CYCLE BRANCH1»C0UNTER1»«C0UNTER2 

NOP M.l 

ZSA COUNTER1 

ST1 M.9+1 

ZSA COUNTER2 

ST1 M.9+2 

ZAA M.8 

STl M.9 

MSP ANYLABEL 

XL MACREG.1»M.9 

ZA1 M.9+MACREG.1 

Al +1 

ZSTl M.9+MACREG.1 

BM1 M.5-1+MACREG.1 

XL MACREG.HM.9 

XA MACREG.lt 1 

XU MACRE6.1tM.9 

BCX MACREG.1»M.2 

MSM ANYLABEL 

B ANYLABEL 

DA 1 

00*29 

B BRANCH1 

B M.6 

NOP 

CNTRL *-l 

CYCLE BRANCH3tC0UNTER3ttl »#* 

NOP M . 1 

ZSA COUNTER3 

STl M.18I2»5) 

MSP M.l 9 

XL MACREG.ltM.18 

XA MACREG.l* 1 

XU MACREG.ltM.16 

BXM MACREG.ltBRANCH3 

MSM M.19 

NOP 

CNTRL *-l 

RECYC ANYLABEL **« 

MSM ANYLABEL 

B ANYLABEL --* 



00001 



00002 



00005 



00006 



00007 



00008 



0325 -0100090000 

0326 -0100090000 

0327 -0100090000 
0326 -0100090000 
0329 -0100090000 



0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0336 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 

0349 
0352 
0353 
0354 



0354. 
0355 
0356 
0357 
0356 
0359 
0360 
0361 
0362 
0363 



-0100090336 
-1600090327 
+1200090350 
-1600090328 
+1200090351 
+1600090365 
+1200090349 
-0300910330 
+4500010349 
+1301090349 
+1400000367 
-1101090349 
-1001090351 
+4500010349 
+4700010001 
-4500010349 
-4300010339 
-0300610330 
+0100090330 
+0003490351 

+0100090325 
+ 01 00090354 
-0100090000 



-0100090358 
-1600090329 
+1200250366 
-0300910354 
+4500010366 
+4700010001 
-4500010366 
-4400010326 
-0300610354 
-0100090000 



0363 -0300610330 

0364 +0100090330 



S3 



PAGE AB 


PROGRAM 


LN CDREF 


LABEL 


01 312 


* 


02 313 


* 


03 314 


* 


04 X 


M.8 


05 X 




06 X 


M.18 


07 X 





OP 



OPERAND 



Oti 



THE FOLLOWING IS GENERATED OUT OF LINE 

DC 

+0000010002 

DA 1 

00*09 
LITERALS 

+ 1 



CDNO FD LOC INSTRUCTION 



+0003650365 
09 0365 +0000010002 

+0003660366 
09 0366 



00009 00 0367 +1 



PAGE AB 
REF 



0365 
0366 
0367 



CYCLE Example 5 



This example illustrates a technique that will allow the modification of 
the contents of a counter associated with a branch when one of the pre- 
ceding branches has already been entered. In this case, COUNTER3 
may be freely changed while BRANCH1 is being taken by the program. 
(This would not be the case if COUNT ER3 were written into the operand 
of the same CYCLE statement as BRANCH1. ) COUNTER2 must be set 
to a value greater than the maximum possible content of COUNTER3. This 
must be done before the first CYCLE statement is entered. The program 
will BRANCH to BRANCH1 as many times as specified in COUNTER1. 
It will then "fall through" to the second CYCLE statement, taking BRANCH3 
as many times as COUNTER3 indicates, and finally "fall through" to the 
RECYC statement. This will reinitialize the first CYCLE macro-instruc- 
tion (the second one will have reinitialized itself, having completed all 
branches the required number of times), to which a transfer is then made 
by means of the unconditional Branch instruction. 



NOTE: Lines marked thus *** in the example listing are original source 
statements; the intervening instructions are generated. 



PAGE AA 



PROGRAM 



LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 
06 
09 
10 
11 
12 
13 
14 



318 
319 



320 
321 



SOMELABEL 
SOMELABEL 



ANYLABEL 
ANYLABEL 



7070 COMPILER SYSTEM VERSION 0MY08t CHANGE LEVEL 00001. PAGE AA 



OP 



OPERAND 



CDNO FD LOC INSTRUCTION 



RECYC EXAMPLE 1. 
RECYC ANYLABEL tLABELZ « AN YSYMBOLfPO I NTX 



MSM 
MSM 
MSM 
MSM 



ANYLABEL 
LABELZ 
ANYSYMSOL 
POINTX 



CYCLE BRANCHliC0UNTERl..C0UNTER2 



NOP 
ZSA 
ST1 
ZSA 
ST1 
ZAA 



M.l 

C0UNTER1 

M.9+1 

C0UNTER2 

M.9+2 

M.8 



00001 



00002 



0325 -0300610329 

0326 -0300610353 

0327 -0300610377 

0328 -0300610401 



0329 -0100090337 

0330 -1600090426 

0331 +1200090349 

0332 -1600090427 

0333 +1200090350 

0334 +1600090428 



REF 



RECYC Example 1 



The CYCLE macro-instructions whose labels are listed in the operand 
are reinitialized by this instruction. 



DECOD — Branch on Code Value 



decod generates instructions to analyze a code field and to branch according to 
the value it contains. The code field must have been previously established 
through a code declarative statement. 

Source Program Format The basic format for the decod statement in the source program is as follows: 



Line 


Label 


Operation 
IE 20 


OPERAND Basic Au t OC oder *A Autoccx 

2 I 25 JO 35 40 45 50 55 60 65 70 


1 


ANY L.A.BEL 


DECOD 


CODENAME. COD.EV A.LU E 1,., BRANCH 1,. C 0,D E V.A.L.U E 2 .B RANCH. 2, etc. 


2 








, , < 



anylabel is any symbolic label; it may be omitted. The entry decod must be 
written exactly as shown, codename must be the symbolic label of a code header 
fine that appears elsewhere in the program. The codevaluex entries are the sym- 
bolic names of the conditions for which tests are to be made; they must be subse- 
quent entries under the code header line, codename. The branchx entries are 
the symbolic addresses of instructions to which the program is to transfer if the 
associated codevalue is present in the code field to be analyzed. 

Omission of branch addresses is not permitted in writing the decod statement. If 
it is desired to have the program continue sequentially in case a given codevalue 
is present in the codename field, the particular codevalue should be omitted from 
the operand altogether. 



Processing Techniques 
Limitations on Length 



A maximum of 45 codevalue and branch pairs may be entered. 



Address Modification 



Processing Sequence 



The codename and branch entries may be modified by indexing and address 
adjustment. 

The codename field is analyzed by the generated instructions for the presence of 
the various codevalues as they appear in the operand portion of the source state- 
ment from left to right. Thus, if two different labels of code subsequent entries 
refer to the same actual value in the code field, and if both are listed, with differ- 
ent branches, in the operand of a single decod statement, the presence of that 
value in the codename field will cause a transfer to the first of these branches. 



Error and Warning 
Messages 



The following error and warning messages will be issued during assembly under 
the conditions specified: 

CODENAME NOT DEFINED BY A CODE 

This error message is issued if the first parameter is not the label of a code 
statement. 
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CODEVALUE NOT DEFINED UNDER A CODE 



This error message is issued if one of the codevalue entries is not a subsequent 
entry under any code header line. 



CODEVALUES AND BRANCHES NOT PAIRED 



This message will be issued if the number of parameters following codename 
is odd. 

WARNING — CODEVALUE NOT DEFINED UNDER CODENAME 

This warning message is issued if one of the codevalue entries has, as its first 
parameter record, a header label which is different from the codename written 
in the source statement. Coding will be generated nevertheless. 

Examples The following are examples of acceptable coding for the decod statement. For 

each, the associated source-program entries are given, followed by the decod 
statement, coding generated in-line, and coding generated out-of-line. 
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DECOD Example 1 

The program will branch to BRANCH1 if the CODENAME field contains 
the condition specified for CODEVALUE, or will go to the next sequential 
instruction if it does not. 
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If the CODENAME field contains the value specified for CODE1, CODE2, 
or CODE3, the program will branch to BR1, BR2, or BR3, respectively. 
Otherwise the program will go to the next sequential instruction. 



LOGIC — Logical Decisions 



logic generates instructions to test whether a given expression is true or false and, 
according to the result, to set a switch or to branch to a designated location, or 
both. 



Source Program Format The basic formats for the logic statement in the source program are as follows: 



Line 
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Label 
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Operation 
16 20 
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In these examples, anylabel is any symbolic label; it may be omitted. The entry 
logic must be written exactly as shown, switch represents any electronic, pro- 
gram, or digit switch to be turned on if the expression in question is true, off if 
false. If the label of an index word or a da, dc, or dsw header line or subsequent 
entry is written, the digits in the first location of the current area referenced will 
be treated as a bank of digit switches; i.e., they will all be turned on or off. 
truebr and falsebr represent the symbolic labels of instructions to which the 
program will branch if the expression is, respectively, true or false. 

The first format causes the object program to set the switch as indicated and to 
continue with the next instruction of the source program after the logic state- 
ment. The second format causes the object program to branch only, not to set a 
switch. The third format does both. 

In the second and third formats listed above, one of the branches may be omitted. 
The object program will then proceed sequentially instead of taking the missing 
branch. For example, if the operand reads switch=expression, truebr and the 
expression is false, the designated switch will be turned off and the next instruc- 
tion of the source program will be executed. Care must be taken to enter the 
separating commas if truebr is omitted since the generator always interprets the 
branch following the first comma as truebr. The operand should read switch= 

EXPRESSION, ,FALSEBR. 

The table on the following page is a list of the parameters which are valid in the 
logic statement as well as the way they are treated by logic when they are used as 
a switch or as an expression. 



Logical Expressions 



Logical expressions, in their simplest form, may consist of a single logical variable. 
Logical operators are used to connect two or more logical variables in order to 
form more complex logical expressions. Logical punctuation is used when neces- 
sary to clarify an ambiguous logical expression. 
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Parameter 


Switch 


Expression 


Index Word 


Bank of Switches 


Operand Field 


Alteration Switch 


INVALID 


Alteration Switch 


Electronic Switch 
Undefined Term 


Electronic Switch 


Electronic Switch 


dline Header Line 
dline Subsequent Entry 
code Header Line 


INVALID 


Operand Field 


code Subsequent Entry 


INVALID 


Code Field 


dtf Header Line 


Bank of Switches 


Operand Field 


da Header Line 
dc Header Line 
dsw Header Line 


Digit Switch or 
Bank of Switches 


Operand Field 


dtf Subsequent Entry 
da Subsequent Entry 
dc Subsequent Entry 


Digit Switch or 
Bank of Switches 


Digit Switch or 
Operand Field 


dsw Subsequent Entry 


Digit Switch 


Digit Switch 


Program Switch 


Program Switch 


Program Switch 



Also, literals are allowed in relational expressions. Any parameters not listed 
above are invalid. 



Logical variables may be of seven types; they can assume either one of two 
values, which are interpreted as true and false, respectively. 



Type 


Address 


True Condition 


False Condition 


Electronic Switch 


Symbolic 


ON 


OFF 


Alteration Switch 




ON 


OFF 


Program Switch 




Plus 


Minus 


Digit Switch 




>0 


= 


Code Value 




Code value present 


Code value not present 


Operand Field 




Not all zeros 


All zeros 


Relational 


( See below ) 


True 


False 



Electronic Switch, Alteration Switch, Program Switch, Digit Switch. These four 
switches require no explanation. Examples of the use of these switches with the 
logic macro-instruction are included under "Examples." The use of an electronic 
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switch is illustrated in examples 6, 9, and 10; of an alteration switch in examples 
7 and 10; of a program switch in examples 7, 9, and 10; of a digit switch in ex- 
amples 1, 8, and 10. 

Code Values. If a code field has been defined in accordance with the instructions 
outlined on page 50, it can be interrogated for the presence of a specific code 
value by referencing the symbolic name of that code value. If the 50 states of 
the Union are assigned the integers 1 through 50 in alphabetical order as code 
values under a code header line labeled state, the integer 1 will be assigned to 
Alabama. The word Alabama then functions as a logical variable, and in any 
given expression it will be regarded as true if the code field state contains a 1, 
false otherwise. The use of a code value is illustrated in examples 5 and 10 under 
"Examples." 

Operand Fields. An operand field is a contiguous field of any length, not neces- 
sarily confined to a single word. If an operand field is used as a switch to be set, 
it is treated as a bank of switches. However, if the field is greater than one word, 
only the first word of the field will be turned on and a warning message will be 
issued. 

If an operand field is used as an expression in the logic statement, it may be any 
length. The field will be regarded as false if it contains all zeros, and true if one 
digit contains a value other than zero. The sign of the zeros does not matter. 
Alphameric zeros (©9090909090) will register as digits different from zero, but 
alphameric blanks (©0000000000) will be treated as zeros in this context. The 
use of an operand field as an expression is illustrated in example 3 under "Ex- 
amples." 

Relational^. Relational expressions are comparisons between two numerical or 
two alphameric fields; the two types should not be mixed in a single comparison. 

The six comparison operators available and their respective numerical and al- 
phameric meanings are as follows: 

Operator Numerical Meaning Alphameric Meaning 

G is greater than follows 

not g is not greater than does not follow 

e is equal to is identical to 

not e is not equal to is not identical to 

l is less than precedes 

not l is not less than does not precede 

A relational expression is formed by placing one of these operators between two 
fields and enclosing the resulting expression in parentheses. Care must be taken 
that exactly one blank separates fields and the operator. 

When comparing two numerical fields, either field may be symbolic or literal. 
Numerical literals may be signed or unsigned; if unsigned, they will be in- 
terpreted as positive. Both automatic-decimal and floating-decimal fields are 
acceptable, and the modes may be freely mixed within a single relational expres- 
sion. 

The conditions and restrictions which apply to the use of the logic macro-instruc- 
tion are identical to those which apply to the comp macro-instruction. These are 
as follows: 
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Logical Operators 



1. No automatic-decimal field may have more than twenty digits. 

2. If an automatic-decimal number is compared to a floating-decimal number, 
only its first eight significant digits will affect the comparison. 

3. If two automatic-decimal numbers are compared, their combined length after 
alignment of the decimal point may not exceed twenty digits. Any excess 
decimals beyond this length are disregarded in the comparison. 

Comparison of numerical fields is strictly algebraic. Of two positive fields, the 
one with the greater absolute value will be regarded as larger of two negative 
numbers, the one with the smaller absolute value will be regarded as larger; any 
negative number is treated as smaller than any positive; zeros, whether positive 
or negative, will be treated as smaller than any other positive and greater than 
any other negative number. 

For example, (age g 17) will be true if the number in the field referenced by 
age is larger than +17, false otherwise. The expression (temp not l — 13) is 
true if temp is 2, 0, -5, or -13, false if it is -13.5. Examples 2, 8, and 10 under 
"Examples" illustrate additional uses of relationals for comparing numerical fields. 

When comparing two alphameric fields, either field may be symbolic or literal. 
Literals must be enclosed in @ signs (e.g., @nyc@). There is no limitation on 
the length of alphameric fields to be compared, except that literals may not ex- 
ceed 120 characters. The relational expression tests for dictionary ordering, and 
the comparison operators must be reinterpreted to the alphameric meaning indi- 
cated in the chart above. Special characters will be included in this dictionary 
ordering according to the standard collating sequence given in the ibm Reference 
Manual "7070 Data Processing System." 

For example, (initial l @k@) will be regarded as true whenever the field 
referenced by the word initial contains a letter that precedes k in the alphabet, 
or a special character whose two-digit numerical representation is less than 72. 
(grade not g @x@) will be false if the grade field contains y or z, true if it 
contains v, w, or x. (@12@ g @ab@ ) is true. @ @ will be regarded as less 
than any other alpha field. 

Logical operators permit the construction of more complex expressions from logi- 
cal variables. The logic macro generator interprets three operators: not, and, 
and or. 

Not. If not precedes an expression, it has the effect of changing its value to the 
opposite; if it precedes a true expression, the resulting expression is false, and vice 
versa. The use of not is illustrated in examples 6, 9, and 10 under "Examples." 

And. If and is placed between two expressions, a new and more complex ex- 
pression results. This expression is true if, and only if, both of the component 
expressions are true; otherwise it is false. The use of and is illustrated in examples 
7, 9, and 10 under "Examples." 

Or. If or is placed between two expressions, a new and more complex expression 
results. This expression is true if at least one of the component expressions is true, 
possibly both. The compound expression, therefore, is false only if both of the 
components are false. The use of or is illustrated in example 8 and 10 under 
"Examples." 



Logical Punctuation 
(Parentheses) 



Expressions resulting from logical operations upon variables may in turn serve 
as components for larger expressions. Let capital letters represent electronic 
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Processing Techniques 
limitations on Length 



switches; then the expression a or not b will be true if a is on, or if not b is 
true, i.e., if b is off, or both. It will be false if and only if a is off and b is on. 

The expression not a and b, however, is ambiguous as it stands. It might have 
been constructed from a and b by first operating upon them with and, and then 
prefacing the result with not; in that case the expression will be true if b is off, 
regardless of the status of a. On the other hand, it might have been built by 
placing not before a, and then operating upon the resulting expression and b 
with the operator and; in that case, if b is off the expression is false. To provide 
the necessary distinction between these meanings, any compound logical expres- 
sion must be enclosed in parentheses before it is operated upon again. This 
would yield not (a and b) and (not a) and b, respectively, for the two 
cases above. The use of parentheses is illustrated in examples 9 and 10 under 
"Examples." 

To avoid excessive parenthesization, three conventions are adopted: 

1. The operator not applies only to the shortest complete logical expression 
immeditaely to its right. Thus not a ok b is taken to mean (not a) or b, 
since a is a complete logical expression. If not (a or b) was intended, the 
parentheses would have to be explicitly written; then, since the operator not 
is followed by a left parenthesis, the shortest complete expression to its right 
is the entire parenthesized expression. 

2. If the operators and and or occur in the same expression without intervening 
parentheses, the terms connected by and will be understood to be parenthe- 
sized. Thus a and b or c will be taken to mean (a and b) or c. If a and 
(b or c) is intended, the parentheses must be written. 

3. Repeated use of either and or or in the same logical expression is not am- 
biguous and need not be parenthesized. The expression a or b or c always 
yields the same result, whether treated as (a ob b) or c or as a or (b or c). 
However, because of a saving in object program time, logic will deal with it 
as though it had the latter form. See "Left-Orientation," below. 

The logic macro generator will automatically interpret punctuated logical expres- 
sions in the sense of these conventions. It will not, however, reject clear, correct 
expressions in which parentheses are explicit that might have been suppressed. 



Not more than 24 parameters may occur in any one logic operand, counting the 
switch to be set, each branch, each logical variable, and each logical operator; in 
the case of repetitions, each occurrence is counted separately. A relational ex- 
pression without not has three parameters; with not, four. Punctuation and ad- 
dress modifiers are not counted as parameters. 



Spacing and Punctuation 



A blank must both precede and follow each and and or. If not precedes a paren- 
thesized expression, no blank need intervene, but if it precedes some other oper- 
and, a space should be left blank. In relational expressions, no blanks should oc- 
cur between the enclosing parentheses and the fields to be compared. The oper- 
ator should be separated by one blank from each of the fields, and, where not 
appears, from each other. No blanks should occur on either side of the equal sign 
or on either side of the separating commas preceding branches. 



Address Modification 



Addresses occurring in the operand portion of a logic statement may be freely 
modified by indexing and address adjustment. The same is true of symbolic 
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Left-Orientation 



Error and Warning 
Messages 



fields in relational expressions though not of literal fields in the same expressions; 
this will, of course, require parentheses within parentheses. Address modification 
is illustrated in example 10 under "Examples." 

In programming complex logical expressions, placing the simpler terms or condi- 
tions on the left side of and and or operators will often result in a substantial sav- 
ing of object program time. Thus, the logical expression 

A OR NOT B AND ( AGE G 26 ) ( 1 ) 

will yield coding which may allow faster resolution than the logically equivalent 

Versi0n ( AGE G 26 ) AND NOT B OR A ( 2 ) 

In the object program, the truth of the individual logical variables is evaluated 
from left to right in the order in which they appeared in the source statement. 
Thus, if a is true in a given run of the object program, the above expression as a 
whole is true, and if it was originally coded as in version ( 1 ) , the determination 
of the truth of b and of (age g 26) is bypassed. In version (2), no such quick 
resolution can be obtained, (age g 26) will be the first logical variable to be 
interrogated. The outcome of this test would not constitute sufficient information 
for an evaluation of the truth of the expression as a whole. If the relational ex- 
pression is true, b would have to be tested next, and if false, a. 

The following error and warning messages will be issued during assembly under 
the conditions specified: 

EQUAL SIGN BEGINS INPUT — WILL IGNORE 

This warning will be issued if the operand portion of the source statement be- 
gins with an equal sign. The sign will be disregarded, and no instructions 
will be generated to set a switch unless a second equal sign occurs in the state- 
ment following the first operand entry. 

ILLEGAL PUNCTUATION MARK USED 

The only punctuation that may validly appear in a logic statement consists 
of an equal sign and a maximum of two commas as indicated under "Source 
Program Format," as well as parentheses, and plus, minus, and alpha signs. 
Other special characters may occur only inside alphameric literals. In case of 
violation, a nop will be generated. 

ILLEGAL TERM ENDS LOGICAL EXPRESSION 

Some term that is neither a logical variable nor a right parenthesis ends the 
source statement, or immediately precedes the first separating comma before 
the branch entries. This condition may be caused if an unintended double 
blank is interpreted by the generator to mean that the operand portion is com- 
plete. A nop will be generated. 

ILLEGAL TERM PRECEDES A BINARY OPERATOR 

A term that is neither a right parenthesis nor a logical variable precedes an 
and or or. A nop will be generated. 

ILLEGAL TERM PRECEDES A LEFT PAREN 

Some term that is neither another left parenthesis, nor a logical operator, nor 
an equal sign, precedes a left parenthesis. A nop will be generated. 

ILLEGAL TERM PRECEDES A NOT 

A term that is neither a logical operator, nor a left parenthesis, nor an equal 
sign, precedes a not. A nop will be generated. 
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ILLEGAL TERM PRECEDES A RIGHT PAREN 



Some term that is neither another right parenthesis, nor a logical variable, nor 
an address modifier, precedes a right parenthesis. A nop will be generated. 



ILLEGAL TERM PRECEDES PARAMETER XX 



xx will be replaced by the number of a parameter which has been preceded 
by a term that is neither a logical operator, nor a left parenthesis, nor an equal 
sign. A nop will be generated. 



INVALID PARAMETER XX 



This message will be issued if a parameter is not one specifically listed as valid 
under "Source Program Format." xx will bs replaced by the number of the 
parameter at fault. A nop will be generated. 



NO BRANCH OR SWITCH TO BE SET IN INPUT 



The coding fails to indicate what implementation the generated instructions are 
to initiate. A nop will be generated. 



NOTHING TO TEST IN LOGIC STATEMENT 



The source statement does not contain an expression whose truth or falsity is 
to be determined. A nop is generated. 



PAREN. MISSING AROUND ARITH-REL 



Either the left or the right parenthesis has been omitted around a relational 
expression. This message will also be issued if an attempt is made to run 
together more than one comparison since the generator expects to find a right 
parenthesis after the second field. For example, this message will be issued if 
(min l average l max) is encountered since the generator expects to find a 
right parenthesis after average. 



PARENTHESIS NOT CLOSED 



There is an excess of left parentheses, leaving at least one left parenthesis un- 
paired. A nop will be generated. 



TOO MANY RIGHT PARENTHESES 



There is an excess of right parentheses, leaving at least one right parenthesis 
unpaired. A nop will be generated. 

WILL SET SWITCHES IN FIRST LOCATION ONLY 

This warning is issued if the switch to be set is the label of a da or dc header 
line or subsequent entry, and if the referenced area bridges words. Only those 
digits that lie in the first location will be affected by the generated instructions. 

Examples The following are examples of acceptable coding for the logic macro-instruction. 

For each, the associated source-program entries are given, followed by the logic 
statement, coding generated in-line, and (where applicable) coding generated 
out-of-line. 
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LOGIC Example 1 



If the digit switch is ON, the program will continue with the next instruction. 
If it is OFF, it will branch to FALSEBR. 
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LOGIC Example 2 



If the numerical field referenced by INCOME is greater than +4800, SWITCH 
will be turned ON and the program will branch to TRUEBR. If INCOME is 
equal to or less than +4800, SWITCH will be turned OFF and the program 
will continue sequentially. In this example, since the type of switch is 
not specifically designated, SWITCH is assumed to be electronic switch 1. 
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0330 -0100000000 



0325 



LOGIC Example 3 



If OPFIELD contains any digits other than zeros, the program will 
continue with the instruction labeled TRUEBR. If every digit is zero, 
the program continues sequentially. Alphameric blanks (@0000000000) 
register as zeros; alphameric zeros (@9090909090) register as digits 
other than zero. 



PAGE AA 




PROGRAM 






LN 


CDREF 




LABEL 


OP 


OPERAND 


01 


401 




* 




LOGIC EXAMPLE 4* 


02 


402 






DA 


1 


03 


403 




SUBSCRIPT 




5»6« 


04 


404 




FALSEBR 


NOP 


REPRESENTS FIRST 


05 


405 




* 






06 


406 




ANYLABEL 


LOGIC 


SWITCH* (SUBSCRIPT NOT 


07 




X 


ANYLABEL 


ZAA 


M. 5(0*1) 


08 




X 




CA 


SUBSCRIPTION) 


09 




X 




BL 


M.l 


10 




X 




BH 


M.l 


11 




X 


M.2 


ESF 


SWITCH 


12 




X 




B 


FALSEBR 


13 




X 


M.l 


ESN 


SWITCH 


14 


407 




• 






15 


406 




* 


THE FOLLOWING IS GtNERATED OU 


16 


409 




* 






17 




X 




DC 




18 




X 


M.5 




< J« 
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INSTRUCTION OF BRANCH ROUTINE 
E • J" )»»FALSEBR 



LINE 









+0003250325 




56 


0325 




00001 




0326 


-0100090000 






0327 


+1600010334 






0328 


-1500560325 






0329 


+4000090333 






0330 


-4000090333 


00002 




0331 


+6100200000 






0332 


+0100090326 






0333 


+6100100000 
+0003340334 


00003 


01 


0334 


•71 



0325 



0334 



LOGIC Example 4 



If the field referenced by SUBSCRIPT, which must be alphameric, 
contains a J, SWITCH will be turned OFF and the program will branch 
to FALSEBR. If SUBSCRIPT contains a character different from J, 
SWITCH will be turned ON and the program will continue sequentially. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OX 
02 
03 
04 
05 
06 
07 
06 
09 
10 
11 
12 
13 
14 
15 
16 
17 



413 
414 
415 
416 
417 
418 
419 
420 



STATE 
OHIO 
TRUEBR 
FALSEBR 
* 

ANYLABEL 
ANYLABEL 

M.2 



421 
422 
423 



OP 



DA 
CODE 

NOP 
NOP 

LOGIC 

CD 

BE 

ESF 

B 

ESN 

3 



OPERAND 

LOGIC EXAMPLE 5< 

1 



5 

REPRESENTS 
REPRESENTS 
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FIRST 
FIRST 



INSTRUCTION. OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



00001 



SWITCH»OHIO»TRUEBR»FALSEBR 

STATE»5 

M.l 

SWITCH 

FALSEBR 

SWITCH 

TRUEBR 



THE FOLLOWING IS GENERATED OUT OF LINE 



TERALS 
5 



00002 



+0003250325 



00 0325 



0326 -0100090000 

0327 -0100090000 



0328 +0300500325 

0329 -4100090332 

0330 +6100200000 

0331 +0100090327 

0332 +6100100000 

0333 +0100090326 



0325 



00 0334 +5 



0334 



LOGIC Example 5 

Assume that a CODE declarative statement has established a one -digit 
CODE field labeled STATE , and that the code value corresponding to 
OHIO is 5. If the STATE field contains a 5, SWITCH will be turned ON 
and the program will branch to TRUEBRi otherwise, SWITCH will be 
turned OFF and the program will branch to FALSEBR. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 



427 
428 
429 

430 



PROGSW 

* 

ANYLABEL 

ANYLABEL 

M.l 

M.2 
M.3 
OR I G I N 



OP 



NOP 



OPERAND 
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LOGIC EXAMPLE 6* 

REPRESENTS PROGRAM SWITCH 



LOGIC PROGSW«NOT REGISTERED 



BES 

MSP 

B 

MSM 

NOP 

CNTRL *-l 



REGISTERED. M.2 

PROGSW 

M.3 

PROGSW 



00001 



00002 



0325 -0100090000 



0326 +6100000329 

0327 -0300910325 

0328 +0100090330 

0329 -0300610325 

0330 -0100000000 



431 



LOGIC Example 6 



If the electronic switch REGISTERED is ON, the program switch PROGSW 
will be turned OFF (i. e. , its sign will be made minus); if REGISTERED 
is OFF, PROGSW will be turned ON (plus). The program will continue 
sequentially in either case. 



LN 


CDREF 


LABEL 


OP 


OPERAND 


01 


435 


* 




LOGIC EXAMPLE 7 


02 


436 


ALTSW 


EQU 


ItSN 


03 


437 


PROGSW 


NOP 


REPRESENTS 


04 


438 


TRUEBR 


NOP 


REPRESENTS 


05 


439 


FALSEBR 


NOP 


REPRESENTS 


06 


440 


* 






07 


441 


ANYLABEL 


LOGIC 


PROGSW AND ALTS! 


08 


X 


ANYLABEL 


CSM 


PROGSW 


09 


X 




BE 


FALSEBR 


10 


X 


M.5 


BAS 


ALTSWtTRUEBR 


11 


X 




B 


FALSEBR 


12 


442 


# 
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PROGRAM SWITCH 

FIRST INSTRUCTION OF BRANCH 

FIRST INSTRUCTION OF BRANCH 



OOOOl 



00002 



0325 -0100090000 

0326 -0100090000 

0327 -0100090000 



0326 -0300600325 

0329 -4100090327 

0330 +5100100326 

0331 +0100090327 



LOGIC Example 7 



If both the program switch PROGSW and the alteration switch ALTSW 
are ON, the program will branch to TRUEBR. If either one or both of 
these switches are OFF, the program will continue with FALSEBR. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 
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01 


446 




* 




LOGIC EXAMPLE 8* 


02 


447 






DSW 


-DIGI TSW 


03 


448 






DA 


1 


04 


449 




NET 




0»9 


05 


450 




TRUEBR 


NOP 


REPRESENTS FIRST 


06 


451 




♦ 






07 


452 




ANYLABEL 


LOGIC 


DIGITSW OR (NET G 120< 


08 




X 


ANYLABEL 


CD 


DIGI TSW«0 


09 




X 




BH 


TRUEBR 


10 




X 


M.5 


ZA2 


NET(0.9) 


11 




X 




S2 


+ 1200 


12 




X 




BV2 


*+2 


13 




X 




BZ2 


*+3 


14 




X 




BM2 


*+2 


15 




X 




B 


TRUEBR 


16 


453 




* 






17 


454 




* 


THE FOLLOWING IS GENERATED OU 


18 


455 




* 







INSTRUCTION OF BRANCH 



1200) iTRUEBR 



00001 00 0325 +0000000000 

+0003260326 
09 0326 

00002 0327 -0100090000 



LI TERALS 

+ 1200 



00003 



0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 



+0300000325 
-4000090327 
+2300090326 
-2400030336 
+2100090334 
+2000090336 
-2000090336 
+0100090327 



0325 
0326 



03 0336 +1200 



0336 



LOGIC Example 8 



If the digit switch DIGITSW is ON, or if the numerical field NET contains 
a number greater than +1200, or both, the program will continue with the 
instruction labeled TRUEBR. Only if DIGITSW is OFF and the NET field 
contains a number equal to or less than +1200 will the program continue 
sequentially. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 
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01 


459 




# 




LOGIC EXAMPLE 9. 


02 


460 






DSW 


-DIGITSW 


03 


461 




PROGSW 


NOP 


REPRESENTS PROGRAM SWITCH 


04 


462 




* 






05 


463 




ANYLABEL 


LOGIC 


DIGITSW«NCT(ELECSW AND PROGSW) 


06 




X 


ANYLABEL 


BES 


ELECSWi*+2 


07 




X 




B 


M.i 


08 




X 


M.5 


CSM 


PROGSW 


09 




X 




BH 


M.2 


10 




X 


M.l 


ZA1 


+1111111111 


11 




X 




B 


M.4 


12 




X 


M.2 


ZA1 


+ 


13 




X 


M.4 


ST1 


DIGITSW 


14 


464 




* 






15 


465 




* 


THE FOLLOWING IS GENERATED OUT OF LINE 


16 


466 




# 














LITERALS 


17 




X 






+1111111111 


18 




X 






+ 



00001 00 



00002 



0325 +0000000000 

0326 -0100090000 



0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 



+6100000329 
+0100090331 
-0300600326 
-4000090333 
+1300090335 
+0100090334 
+1300000336 
+1200000325 



00003 09 0335 +1111111111 
00 0336 +0 



0325 



0335 
0336 



LOGIC Example 9 

If both the electronic switch ELECSW and the program switch PROGSW 
are ON, digit switch DIGITSW will be turned OFF. If either ELECSW 
or PROGSW is OFF, or both, DIGITSW will be turned ON. In either case, 
the program will continue sequentially. 



K4 

OS 


PAGE AA 




PROGRAM 






LN 


CDREF 


LABEL 


OP 


OPERAND 




01 


470 




# 




LOGIC EXAMPLE 10. 




02 


471 






DA 


1 




03 


472 




MATRIX 




0»9 




04 


473 




FALSEBR 


NOP 


REPRESENTS FIRST 




05 


474 




* 








06 


475 




ANYLABEL 


LOGIC 


SWITCH(XW0RD+125)=(MA 




07 


476 








FALSEBR (7-3) 




08 




X 


ANYLABEL 


ZA2 


MATRIX(0»9)-l+ROW 




09 




X 




S2 


+ 1 




10 




X 




BV2 


#+2 




11 




X 




BZ2 


♦+2 




12 




X 




B 


M.l 




13 




X 


M.2 


ESF 


SWITCH+125+XWORD 




14 




X 




B 


FALSEBR-3+X7 




15 




X 


M.l 


ESN 


SWITCH+125+XWORD 




16 


477 




* 








17 


478 




* 


THE FOLLOWING IS GENERATED OU 




18 


479 




* 
















LITERALS 




19 




X 






+ 1 
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+0003250325 
09 0325 
INSTRUCTION OF BRANCH ROUTINE 00001 0326 -0100090000 



(MATRIX(ROW-l) NOT E 



1)»» REMARKS 

MAY BE USED, 



00002 



0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 



+2301090324 
-2400000335 
+2100090331 
+2000090332 
+0100090334 
+6102200125 
+0107090323 
+6102100125 



0325 



00 0335 +1 



0335 



LOGIC Example 10 



If the field defined as MATRIX, indexed by the index word ROW and address- 
adjusted by -1, is not equal to +1, the electronic switch addressed by SWITCH, 
indexed by XWORD and address -adjusted by +125, will be turned ON. Other- 
wise the switch will be turned OFF and the program will continue with the 
instruction located at FALSEBR incremented by the contents of index word 
7 and decremented by 3. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 

oa 

09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 
21 

1Z 



483 
484 
485 
486 
487 
488 
489 
490 
491 
492 



493 
494 
495 



STATE 

OHIO 

NEWYORK 

MAINE 
TRUEBR 
FALSEBR 
# 

ANYLABEL 
ANYLABEL 

M.2 

M.l 

* 
* 



OP OPERAND 

LOGIC EXAMPLE 11 
DA 8»»0+X87 
CODE 

5 

6 

7 
NOP REPRESENTS FIRST 
NOP REPRESENTS FIRST 
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CHANGE LEVEL 00001. PAGE AA 
LOC INSTRUCTION REF 



00 0325 



INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



00001 



LOGIC SWITCH-OHIO»TRUEBR»FALSEBR 



CD 

BE 

ESF 

B 

ESN 

B 



STATE»5 

M.l 

SWITCH 

FALSEBR 

SWITCH 

TRUEBR 



00002 



THE FOLLOWING IS GENERATED OUT OF LINE 



LITERALS 
5 
6 
7 



+0003250332 



00 
11 
22 



0333 -0100090000 

0334 -0100090000 



0335 +0387500000 

0336 -4100090339 

0337 +6100200000 

0338 +0100090334 

0339 +6100100000 

0340 +0100090333 



0341 +5 
0341 + 6 
0341 + 7 



0000 



0341 
0341 
0341 



LOGIC Example 11 

This example is similar to Example 5. Additional CODE values have been 
established corresponding to NEWYORK and OHIO under a DA in which both 
relative addressing and implicit indexing are used. 



ZSIGN — Branch on Test for Zero and Sign 



Source Program Format 



zsign generates instructions that will analyze a field or area for the presence of 
zeros and, if it is not zero, for its sign, and then branch accordingly. 

The two basic formats for the zsign statement in the source program are as 
follows: 



Line 


Label 

6 15 


Operation 

16 20 


OPERAND 

21 25 30 35 40 45 


Basic Autocoders 

50 55 1 


2 


ANY L.A.B.E.L, 


Z.S.I GN 


Fl ELD., ZEROBR .PLUS BR., Ml NUS.BR 


ALPHA BR. \ 


AN YL A.BEL 


Z S 1 ,G,N 


F 1. ELD.. NO ZERO .,P L.U SB R ,.MI NU S.BR 


AL.PHABR, ( 


3 




, 


, , , , , ■ ■ . , 


, . ( 



In these examples, anylabel represents any symbolic label; it may T^e omitted. 
The entries zsign and nozero must be written exactly as shown, field is the 
symbolic name of the subsequent entry defining the field to be tested. It may also 
be the header label of a declarative statement in which case the record area defined 
will be tested, zebobr, plusbr, minusbr, and alphabr are the symbolic labels of 
instructions to which the program will branch if the contents of the field or area 
are found to be, respectively, zero, plus, minus, or alpha. In the second format, 
the entry nozero instead of zerobr will prevent testing for a zero condition; 
branching then is purely according to sign. 

The source program formats may be modified by the omission of one, two, or in 
the case of the first format, even three branches. In that case, the object program 
would take the next instruction following the zsign statement instead of the miss- 
ing branch. Separating commas must be entered if any branch except the last is 
omitted. 

In the first format, if the field contains zeros, transfer will be to zerobr whether 
the zeros are plus or minus. Alpha blanks (of the form ©0000000000) will also 
cause a branch to zerobr. Alpha zeros (©9090909090), on the other hand, will 
cause the program to transfer to alphabr (except for the marginal case in which 
the field has only one digit and that contains the zero digit of an alpha zero, in 
which case transfer is to zerobr.) In this format, if the field does not contain 
zeros, transfer will be according to the sign of the word in which the left-most 
digit of the field is contained. 

In the second format, branching will be determined by the sign of the word in 
which the left-most digit of the field is contained. 

In the following examples, assume that the field consists of the underlined digits: 

Branch Taken Branch Taken 

Contents of Storage Using the Using the 





First Format 


Second Format 


+0001234567 


PLUSBR 


PLUSBR 


-1234567890 


minusbr 


MINUSBR 


©8361776979 


ALPHABR 


ALPHABR 
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Branch Taken 


Branch TaKen 


Contents of Storage 


Using the 
First Format 


Using the 
Second Format 


+0000000000 


ZEROBR 


PLUSBR 


-0000000000 +0000000005 


ZEROBR 


MINUSBR 


©0000000000 


ZEROBR 
ALPHABR 


ALPHABR 


©9090909090 


ALPHABR 


©9090909090 


ZEROBR 


ALPHABR 


+0001234567 -1234567890 


PLUSBR 


PLUSBR 


©8272656274 +0000000000 


ALPHABR 


ALPHABR 



When a zsign statement references the label of a da header line, coding will be 
generated to cause the following: 

1. If the da header line does not specify a relative address and implicit indexing, 
the first record area defined will be tested as specified. 

2. If the da header line specifies a relative address and implicit indexing, the 
current record area (as determined by the contents of the implicit index 
word) will be tested as specified. 

When a zsign statement references any other declarative statement header line, 
the entire area will be tested as specified. 



Processing Techniques 
Limitations on Length 



The number of parameters is fixed by the format, subject only to the omission of 
one or more branches. There is no limit to the size of the field to be tested. 



Address Modification 



Indexing and address adjustment are permitted on all symbolic addresses. 



Error and Warning 
Messages 



The following error and warning messages are issued during assembly under the 
conditions indicated: 



BRANCH TO NON-IMPERATIVE INSTRUCTION 



One of the branch addresses to which the object program may transfer is not 
the label of an imperative instruction, but, for example, that of a da subse- 
quent entry. 



FIELD MISSING 



This message will be issued if field is omitted from the operand, e.g., if the 
operand portion of the source statement begins with a comma. 



field unacceptable 



The field entry contains a symbolic address of an entity that cannot meaning- 
fully be tested for zero contents or sign, e.g., an alteration switch. 

NO BRANCHES GIVEN 

All four branches in the first format, or all three branches in the second format, 
have been omitted. A nop will be generated to aid in patching if this condition 
was unintended. It should be noted, however, that this instruction will accomp- 
lish exactlv what a literal interpretation of the source statement requires, i.e., 
the program will take the next instruction in any case. 



179 



UNLIKELY — ALL BRANCHES IDENTICAL 

All four branches in the first format, or all three branches in the second format, 
are identical. In case the source statement is of the first format, coding for the 
zero test will have been generated. Then the procedure is the same as for the 
second format, i.e., a nop will be generated, followed by an unconditional 
Branch instruction to the required branch This again allows for patching while 
implementing a strict interpretation of the source statement. 

Examples The following are examples of acceptable coding for the zsign macro-instruction. 

For each, the associated source-program entries are given, followed by the zsign 
statement, and coding generated in-line. 
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PAGE AA PROGRAM 
LN CDREF LABEL 



01 


501 




* 




02 


502 






DA 


03 


503 




ANYFIELD 




04 


504 




ZEROBR 


NOP 


05 


505 




PLUSBR 


NOP 


06 


506 




MiNUbbR 


NOP 


07 


507 




ALPHABR 


NOP 


OB 


508 




* 




9 


509 




ANYLABEL 


ZSH 


10 




X 


ANYLABEL 


ZA1 


il 




X 




BZi 


12 




X 




CSM 


13 




X 




BL 


14 




X 




Bl 


13 




X 




B 


16 


510 




* 





OP OPERAND 

ZSIGN EXAMPLE 1 

1 
3.9A4.3 

REPRESENTS FIRST 
REPRESENTS FIRST 
REPRESENTS F IRST 
REPRESENTS F IRST 
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INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



ZSIGN ANYF I ELD (ZEROBR • PLUSBR »M I NUSBR » ALPHABR 
ANYFIELD(0»6) 
ZEROBR 
ANYFIELD 
ALPHABR 
Ml NUSBR 
PLUSBR 



00001 



00002 



+0003250325 
0325 

0326 -0100090000 

0327 -0100090000 
0326 -0100090000 
0329 -0100090000 



0330 +1300390325 

0331 +1000090326 

0332 -0300600325 

0333 +4000090329 

0334 -4100090328 

0335 +0100090327 



0325 



ZSIGN Example 1 

A field, less than one word in length, will be examined first for the 
presence of zeros and, if it does not contain all zeros, for a plus, 
minus, or alpha sign. A branch to the appropriate instruction will 
be made based on what is found. 



PAGE AA PROGRAM 

LN CDREf LABEL 

01 514 * 

02 515 



OP 



OPERAND 

ZSIGN EXAMPLE 2 
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03 


516 




FIELDX 




0»9A 


04 


517 




PLUSBR 


NOP 


REPRESENTS FIRST 


05 


518 




Ml NUSBR 


NOP 


REPRESENTS FIRST 


06 


519 




* 






07 


520 




ANYLABEL 


ZSIGN 


FIELDXt* PLUSBR tMINUSB 


08 




X 


ANYLAdEL 


ZA1 


FIELDX(0»9) 


09 




X 




BZ1 


M.l 


10 




X 




CSM 


FIELDX 


11 




X 




Bri 


PLUSBR 


12 




X 




BE 


MINUSBR 


13 




X 


M.l 


NOP 




14 




X 


ORIGIN 


CNTRL 


*-l 


15 


521 




# 







INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



+0003250325 
09 0325 
00001 0326 -0100090000 
0327 -0100090000 



0328 +1300090325 

0329 +1000090333 

0330 -0300600325 
00002 0331 -4000090326 

0332 -4100090327 

0333 -0100000000 



0325 



ZSIGN Example 2 



The program will examine the one -word field, FIELDX, for a plus or 
minus sign and branch accordingly. If FIELDX only contains zeros or 
has an alpha sign, the program will continue with the next sequential 
instruction. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 

04 
OS 
06 
07 
Ob 
09 
10 

il 
1 J 

14 
15 
16 
17 

ia 

19 
20 



525 
526 
527 
528 
529 
530 
531 



AF I ELD 

BRANCHX 

BRANCHZ 

* 

ANYLABEL 

ANYLABEL 

M.2 



532 
533 

534 



NOP 
NOP 



OPERAND 

ZSIGN EXAMPLE 3 

1 

03.69 

REPRESENTS FIRST 
REPRESENTS FIRST 
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ZS I GN AF I ELD » BRANCHX • BRANCHZ .BRANCHZ < BRANCHX 

XL MACREG. 01. +0000000005 

ZAA AFIELD 

AA AFItLD(7»16)+MACREG.01 

blX MACREG. 01 »M. 2 

BVi * + 2 

BZl BRANCHX 

CSM AFIELD 

BL BRANCHX 

B BRANCHZ 

THE FOLLOWING IS GENERATED OUT OF LINE 

L I TERALS 

+0000000005 



00001 



00002 



00003 



+0003250331 
0325 

0332 -0100090000 

0333 -0100090000 



0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 



♦4500010343 
+1600390325 
+1701090326 
+4900010336 
+1100090340 
+1000090332 
-0300600325 
+4000090332 
+0100090333 



09 0343 +0000000005 



0343 



ZSIGN Example 3 

The program will examine a field greater than one word. If AFIELD 
contains zeros or if the sign of the word in which the left-most digit 
of AFIELD is contained is alpha, a branch to BRANCHX will be made. 
If the sign is plus or minus, the branch will be to BRANCHZ. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



OPtRAND 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


536 




* 




ZSIGN EXAMPLE 4 


02 


537 






DA 


1 


03 


538 




AFIELD 




03.69 


04 


539 




NOZERO 


NOP 


REPRESENTS FIRST 


05 


540 




BRANCHZ 


NOP 


REPRESENTb FIRST 


06 


541 




BRANCHX 


NOP 


REPRESENTS FIRST 


07 


542 




* 






Ob 


543 




ANYLABEL 


ZSIGN 


AFIELD. NOZERO. BRANCHZ 


OV 




X 


ANYLAdEL 


CSM 


AFIELD 


10 




X 




BL 


BRANCHX 


11 




X 




B 


BRANCHZ 


12 


544 




* 







INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



+0003250331 
39 0325 
00001 0332 -0100090000 

0333 -0100090000 

0334 -0100090000 



0335 -0300600325 

0336 +4000090334 
00002 0337 +0100090333 



0325 



ZSIGN Example 4 



A field greater than one word will be examined for sign only. The pro- 
gram will continue with the instruction located at BRANCHZ if the sign 
of the word which contains the left-most digit of AFIELD is plus or minus, 
or BRANCHX if the sign is alpha. 



PAGE AA 



PROGRAM 



LN CDREF LABEL 



01 
0^ 
03 
04 
05 
06 
07 
Od 
09 
10 

11 

12 
13 
14 
15 

16 
17 
lb 
19 
20 



548 
549 



550 
551 
552 
553 
554 
555 
556 



557 



X 
X 
X 
X 

ANYFIELD 
ZlROBR 
PLUS3R 
Ml NUSdR 
ALPhABR 

ANYLAbEL 
X ANYLAbEL 
X 
X 
X 
X 
X 

fl- 



OP 



DA 



NOP 
NOP 
NOP 
NOP 



OPERAND 



ZSIGN EXAMPLE 5 
4»RDW»0+X13 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001 • PAGE AA 

CDNO FD LOC INSTRUCTION REF 



3»9A4.3 



REPRESENTS FIRST 

REPRESENTS FIRST 

REPRESENTS FIRST 

REPRESENTS FIRST 



INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 
INSTRUCTION OF BRANCH ROUTINE 



ZSIGN ANYFIELD* ZLROBR iPLUSBR»M I NUSBRtALPHABR 

ZA1 ANYFIELD(0*6)+X13 

BZI ZLROBR 

CSM ANYFIELD+X13 

BL ALPHABR 

BL MINUSBR 

B PLUSBR 



+0003250332 

00001 0325 +0003290329 

0326 +0003300330 

0327 +0003310331 

0328 -0003320332 
39 0329 

00002 0333 -0100090000 

0334 -0100090000 

0335 -0100090000 

0336 -0100090000 



0337 +1313390000 

00003 0338 +1000090333 

0339 -0313600000 

0340 +4000090336 

0341 -4100090335 

0342 +0100090334 



0325 
0326 
0327 
0328 
0000 



ZSIGN Example 5 

The actual ZSIGN test is the same as in Example 1. In this case, how- 
ever, four blocked records are in the defined area. The test will be made 
only on the field ANYFIELD in the current record area, as determined by 
the contents of the implicit index word. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



01 


561 




* 




02 


562 




ANYLABEL 


DA 


03 


563 




FIELDA 




0<* 


564 




FiELDb 




03 


565 




FIELDC 




Ob 


566 




ZLROdR 


NOP 


07 


567 




PLUSbR 


NOP 


Oo 


568 




MINUSbR 


NOP 


Ov 


569 




ALPHABR 


NOP 


10 


570 




* 




11 


571 




SOMELABEL 


ZS 1 1 


12 


572 








13 




X 


SOMELABEL 


ZAA 


14 




X 




AA 


15 




X 




AA 


16 




X 




BVi 


17 




X 




BZ1 


16 




X 




CSM 


19 




X 




BL 


20 




X 




BE 


21 




X 




b 


22 


573 




*' 





OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



ZSIGN EXAMPLE 6 



3»*0+INDEXWORD 

0.-M6.4 

10tl5' 

lb.28 

REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 
REPRESENTS FIRST INSTRUCTION OF BRANCH ROUTINE 



09 
05 
69 



00001 



GN ANYLABEL»ZEROBRfPLUSBR» 
MINUSBRtALPHABR 
Ql0»9)+INDEXWORD 
0(i0tl9)+INDEXWORD 
0(20»29)+INDEXWORD 
*+2 

ZEROBR 
0+INDEXWORD 
ALPHABR 
MINUSBR 
PLUSBR 



REMARKS MAY 
BE USED, 



00002 



00003 



+0003250333 
0325 
0326 
0326 

0334 -0100090000 

0335 -0100090000 

0336 -0100090000 

0337 -0100090000 



0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 



+1601090000 
+1701090001 
+1701090002 
+1100090343 
+1000090334 
-0301600000 
+4000090337 
-4100090336 
+0100090335 



0000 
0001 
0001 



ZSIGN Example 6 



Since the label of the DA header line is addressed in the ZSIGN statement, 
the entire area through digit position 29 will be tested for zeros. Since 
implicit indexing has been used, the current record will be tested. If 
the record does not contain all zeros, the sign of the word which contains 
the left -most digit of ANYLABEL (FIELDA) will be checked, and appro- 
priate branches will be made. 



SETSW-Set Switch 



setsw generates instructions to set one or more digit, electronic, or program 
switches to an on or off condition. 



Source Program Format The basic format for the setsw statement in the source program is as follows: 



Line 

3 51 



Label 



Operation 
16 20 



25 



OPERAND 
35 40 



I ; 
2 



ANY LA, BEL, 



SETSW * S,W, A . .i S W ,B , . .1.S.W.C ..etc, 



In this example, anylabel is any symbolic label; it may be omitted. The entry 
setsw must be written exactly as shown. The entries swa, swb, etc., represent 
names of switches that are to be turned on or off. If the switch is a program or a 
digit switch, the name must be symbolic; the label of a series of digit switches 
established by a dsw (Define Switch) statement may be used. If the switch is 
electronic, either its symbolic or its actual one- or two-digit name may be used. 
The various types may be freely intermingled within the operand portion of a 
single setsw statement. 

Switches preceded by a plus sign will be turned on; those preceded by a minus 
sign will be turned off. The sign may be omitted, in which case it will be as- 
sumed to be plus. If a series of switches established by a dsw instruction is in- 
cluded, all of the component switches will be turned on or off according to the 
sign (or its absence) preceding the label. 

Commas must be entered between successive entries in the operand portion of 
the setsw statement. 



Processing Techniques 



Limitations on Length 
Address Modification 



The operand portion may include 94 parameters. Any excess will be ignored. 
All symbolic addresses may be modified by indexing and address adjustment. 



Error and Warning 
Messages 



The following error and warning messages will be issued during assembly under 
the conditions specified: 



instruction not program switch par. xx 



An attempt has been made to turn a program switch on or off (to make plus 
or minus an instruction with operation code 01) and the instruction addressed 
fails to have this operation code, xx will be replaced by the number of the 
parameter at fault. Coding will be generated to implement the sign adjustment 
nevertheless. 



SETSW 



185 



INVALID SWITCH. PARAMETER XX 



An attempt has been made to set hardware switches, such as alteration 
switches, by use of the setsw statement, or other unacceptable operand entries 
have been made, xx will be replaced by the number of the parameter at fault. 

Example The following is an example of acceptable coding for the setsw macro-instruc- 

tion. The associated source-program entries are given, followed by the setsw 
statement, the coding generated in-line, and the coding out-of-line. 



186 



LN 


CDRtF 




LABEL 


OP 


OPERAND 




01 


577 




# 




SlTSW EXAMPLE 1 




02 


576 






DSW 


-0 1 GSWB»+D 1 GSWA 




Oj 


579 




PROGSWA 


NOP 


REPRESENTS PROGRAM SWITCH 




Q4 


560 




PR0GSW6 


NOP 


REPRESENTS PROGRAM SWITCH 




Q» 


581 




* 








Oo 


562 




ANYLAbtL 


SLTSW 


LLECSwA»-21 » PROGSWA *+D IGSWA» 


REMARKS MAY 


7 


563 








-PROGSWb»-L> iGSWb 


BE USED. 


Cci 




X 


ANYLAdtL 


ESN 


ELECSWA 




09 




X 




ESF 


21 




10 




X 




MSP 


PROGSWA 




1 1 




X 




ZA1 


+1111111111 




12 




X 




ST1 


DIGSWA 




13 




X 




MSM 


PROGSWB 




14 




X 




ZA2 


+0 




15 




X 




ST2 


DIGSWB 




16 


584 




* 








17 


585 




* 


T.-1E FOLLOWING IS GENERATED OUT OF LINE 




la 


586 




# 
















L ITERALS 




19 




X 






+1111111111 




20 




X 






+ 





7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 01 



00002 



00003 



0325 +0100000000 

0326 -0100090000 

0327 -0100090000 



0325 



0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 



+6100100000 
+6300200000 
-0300910326 
+1300090336 
+1200110325 
-0300610327 
+2300000337 
+2200000325 



09 0336 +1111111111 
00 0337 +0 



0336 
0337 



SETSW Example 1 



Electronic switch A, program switch A, and digit switch(es) A will be 
turned ON. Electronic switch 21, program switch B, and digit switch(es) 
B will be turned OFF. 



ZERO — Zero Storage 



zero generates instructions to replace the contents of fields or areas with zeros 
or blanks. 



Source Program Format The basic format for the zero statement in the source program is as follows: 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


21 25 


OPERAND 

30 35 40 


45 J 


1 

2 


ANY L A.BEL 


ZERO 


F lELD.A, 


ARE.AB, ,,F I.ELDC.etc. 




1 , L. 1 


i i i 


■■■»■■ llMill 1.1 |\ 



anylabel is any symbolic label; it may be omitted. The entry zero must be 
written exactly as shown, fielda, areab, etc., may be the symbolic names of 
any defined fields or areas. Areas, numerical fields and alphameric fields may be 
freely intermingled. 



Processing Techniques 
Limitations on Length 



The operand portion of the zero macro-instruction may contain up to 94 entries. 
There is no limit on the size of the fields named. 



Address Modification 



The Effect of ZERO 



All symbolic addresses may be modified by indexing and address adjustment. 

Fields and Areas, dline areas and all fields defined as alphameric will be re- 
placed by the double-digit representation of blanks. Whole words will be made 
alpha; the sign of partial words will not be altered. 

In all other fields or areas, whole words will be replaced by plus zeros; partial 
words will be replaced by zeros but the sign will not be altered. 

The following examples illustrate the effect of zero on various fields. The field 
addressed is underlined. 



No. 


Field 
Definition 


Before ZERO 


After ZERO 


1. 

2. 
3. 


0, 9A10.0 
0,9© 
0,13A 
0,13A 
0,15© 
0,15© 
4, 8A5.0 
4, 8A5.0 


-8342168900 
©9192616263 

-9342168900 -1869123456 
-8342168900 +1869123456 
©9192616262 ©6162636465 


+0000000000 
©0000000000 
+0000000000 -0000123456 


4. 


+0000000000 +0000123456 


5. 


©0000000000 ©0000006465 


6. 


-9192616263 -6162636465 

-1234012345 

©8283909195 


©0000000000 -0000006465 


7. 
8. 


-1234000005 
©8283000005 



188 



Error and Warning 
Messages 



In example 8, machine difficulties may arise when an attempt is made to print 
out the zeroed word, since the combination 05 has no meaning in double-digit, 
alphameric code. 

Declarative Statement Header Lines. When zero references the label of a da 
header line, coding will be generated to cause the following: 

1. If the da header line does not specify a relative address and implicit indexing, 
the first record area defined will be set to plus zeros. 

2. If the da header line specifies a relative address and implicit indexing, the 
current record area (as determined by the contents of the implicit index word) 
will be set to plus zeros. 

If zero references the label of a dline header line, coding will be generated to 
cause the entire area, including constants (if any), to be set to blanks. 

If zero references the label of a drdw, a warning message will be issued, but 
coding will be generated to cause the first rdw generated (not the area it de- 
fines ) to be set to plus zeros. 

When zero references the label of any other declarative statement header line, 
coding will be generated to cause the entire area to be set to plus zeros. 

Instructions. If zero references the label of an instruction, a warning message 
will be issued, but coding will be generated to cause the instruction to be set to 
plus zeros. 

The following error and warning messages will be issued during assembly under 
the conditions specified: 

ALPHA BLANKS INTO UNDEFINED PAR. XX 

The xx will be replaced by the parameter number of the operand without 
defined characteristics. This field will be filled with alphameric blanks. 

ATTEMPTING TO ZERO HARDWARE. PAR. XX 

The field to be zeroed has been defined by means of an equ line as a hard- 
ware device. A nop will be generated. 

NO FIELD SIZE. PAR. XX 

The parameter record of the operand entry whose number replaces the xx of 
the message does not indicate the size of the field to be zeroed out. A nop will 
be generated. 

ZEROING DC. PAR. XX 

The label of a dc header line has been used as an operand. The parameter 
number will replace the xx of the warning message. Coding will be generated 
nevertheless. 

ZEROING INSTRUCTION. PAR. XX 

This warning message, with the parameter number of the faulty entry in place 
of the xx, will be issued whenever an attempt is made to zero out an instruc- 
tion, whether symbolic machine or macro. Coding will be generated, however. 



Examples 



The following are examples of acceptable coding for the zero macro-instruction. 
For each, the associated source-program entries are given, followed by the zero 
statement, coding generated in-line, and coding generated out-of-line. 



ZERO 



189 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


601 




* 




ZERO EXAMPLE 1 




02 


602 






DA 


1 




03 


603 




FIELDA 




00»99« 




04 


604 




FIELDB 




100»103A 




05 


605 




FIELDC 




110*129A 




06 


606 




FIELDD 




132*1131A 




07 


607 




* 








08 


608 




ANYLABEL 


ZERO 


F 1 ELDAiF 1 ELDB»F 1 ELDC» 


REMARKS MAY 


os 


609 








FIELDD 


BE USED* 


10 




X 


ANYLABEL 


ZA1 


i i 




n 




X 




ST1 


FIELDA(0»9) 




12 




X 




XZA 


MACREG.ltFIELDA 




13 




X 




RS 


MACREG«ltM.2 




14 




X 




STD1 


FIELDB(0»3) 




15 




X 




ZA2 


+0 




16 




X 




ST2 


FIELDC(0»9) 




17 




X 




ST2 


FIELDC(10tl9J 




18 




X 




STD1 


FIELDD(0f7) 




19 




X 




ST2 


FIELDD(8«17) 




20 




X 




XZA 


MACREG«1»FIELDD+1 




21 




X 




RS 


MACREG*1*M.3 




22 




X 




STD1 


FIELDD(998»999) 




23 


610 




* 








24 


611 




» 


THE FOLLOWING IS GENERATED OUT 


OF LINE 


25 


612 




# 








26 




X 


M.2 


DRDW 


-FIELDA+liFIELDA+9 




27 




X 


M.3 


DRDW 


-FIELDD+2»FIELDD+99 












LITERALS 




28 




X 






+ 




29 




X 






i t 





00001 



00002 



00003 







+0003250438 




09 


0325 




0325 


03 


0335 




0335 


09 


0336 




0336 


29 


0338 




0338 




0439 


+1300010455 






0440 


+1200090325 






0441 


+4600010325 






0442 


+6500010452 






0443 


-1200030335 






0444 


+2300000454 






0445 


+2200090336 






0446 


+2200090337 






0447 


-1200290338 






0448 


+2200090339 






0449 


+4600010339 






045 


+6500010453 






0451 


-1200010438 





00004 00 

00005 01 



0452 -0003260334 

0453 -0003400437 

0454 +0 

0455 «00 



0454 
0455 



ZERO Example 1 



FIELDA will be filled with alphameric blanks. FIELDB will be filled 
with zeros; the sign of the word will not be changed. FIELDC will be 
filled with plus zeros. The first and last words in which digits of 
FIELDD occur will have the portion occupied by FIELDD replaced by 
zeros; the sign of these words will not be changed. The rest of FIELDD 
will be filled with plus zeros. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 

05 
06 
07 
Ob 
09 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
IV 
20 
21 
22 
23 
24 

25 
26 



616 

617 



618 
619 
620 
621 
622 



623 
624 
625 



X 
X 

FIELDA 
FIELDB 
FIELDC 

* 

ANYLAbEL 
X ANYLABEL 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



OP 



DA 



ZERO 

2A1 

ST1 

XZS 

XSN 

XZA 

RS 

STDl 

STDl 

STDl 

ZA2 

ST2 

ST2 



OPERAND 

ZERO EXAMPLE 2 
2»RDW»0+INDEXWORD 



00»95' 
96»103A 
llOt 129A 

FIELDA»FIELDB*FIELDC 
i i 

FIELDA(0*9)+INDEXWORD 

MACREG«2»F I ELDA+1+ I NDEXWORD 

MACREG«2 » F I ELDA+8+ I NDEXWORD 

MACREG.l »F I ELDA+I NDEXWORD 

MACREG«1»MACREG.2 

FIELDA ( 90 »95) + I NDEXWORD 

F I ELDB { »3 ) + I NDEXWORD 

F I ELD6 (4 »7)+i NDEXWORD 

+ 

F I ELDC(0f9)+l NDEXWORD 

FIELDCt 10 »19)+ I NDEXWORD 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



00002 



00003 



00004 







+0003250352 






0325 


+0003270339 


0325 




0326 


-0003400352 


0326 


09 


0327 




0000 


69 


0336 




0009 


09 


0338 




0011 




0353 


+1300010366 






0354 


+1201090000 






0355 


-4601020001 






0356 


+4801020008 






0357 


+4601030000 






0358 


+6500030002 






0359 


-1201050009 






0360 


-1201690009 






0361 


-1201030010 






0362 


+2300000365 






0363 


+2201090011 






0364 


+2201090012 





THE FOLLOWING IS GENERATED OUT OF LINE 

LITERALS 
+ 



00 0365 +0 
00005 01 0366 • 00 



0365 
0366 



ZERO Example 2 



In the current record area, as determined by the contents of the implicit 
index word, FIELDA will be filled with alphameric blanks and FIELDB 
will be filled with zeros. Note that the last word that contains digits 
of FIELDA also contains digits of FIELDB. The sign of this word, 
therefore, will not be changed. The sign of the last word which contains 
digits of FIELDB will also remain unchanged since it is only a partial 
word. The contents of FIELDC will be replaced with plus zeros. 



LN 


CDREF 




LABEL 


OP 


OPERAND 


01 


629 




* 




ZERO EXAMPLE 3 


02 


630 




AREANAME 


DA 


1 


03 


631 




FlELDA 




00i99' 


04 


632 




FIELDS 




1Q0»103A 


05 


633 




FIELDC 




104tl29A 


06 


634 




FIELDD 




130.249A 


07 


635 




» 






08 


636 




ANYLABEL 


ZERO 


AREANAME 


09 




X 


ANYLABEL 


ZA2 


+ 


10 




X 




ST2 


AREANAME(0»9) 


11 




X 




XZA 


MACREG.liAREANAME 


12 




X 




RS 


MACRE6.1.M.2 


13 


637 




* 






14 


636 




* 


THE FOLLOWING IS GENERATED OUT I 


15 


639 




* 






16 




X 


M.2 


DRDW 


-AKEANAME+1 t AREANAME+24 










LITERALS 


17 




X 






+ 



7070 COMPILER SYSTEM VERSION OMYO81 CHANGE LEVEL 00001. 

CDNO FD LOC INSTRUCTION 



+0003250349 



09 0325 

03 0335 

49 0335 

09 0338 



00001 0350 +2300000355 

0351 +2200090325 

0352 +4600010325 

0353 +6500010354 



0354 -0003260349 
00002 00 0355 +0 



PAGE AA 
REF 



0325 
0335 
0335 
0336 



0355 



ZERO Example 3 



Since the ZERO statement references the label of the DA header line, 
the entire record area defined will be filled with plus zeros. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



OPERAND 



01 


643 




* 




ZERO EXAMPLE 4 


02 


644 




AREANAME 


DA 


2tRDW»0+INDEXWORD 


03 




X 








04 




X 








05 


645 




FIELDA 




00t9»« 


06 


646 




FIELDB 




100tl03A 


07 


647 




* 






06 


648 




ANYLABEL 


ZERO 


AREANAME 


09 




X 


ANYLABSL 


ZA2 


+0 


10 




X 




ST2 


0(0»9)+INDEXWORD 


11 




X 




XZS 


MACREG.2 »0+l+l NDEXWORD 


12 




X 




XSN 


MACREG.2 • 0+10+ 1 NDEXWORD 


13 




X 




XZA 


MACREG.ltO+l NDEXWORD 


14 




X 




RS 


MACREG.l. MACREG.2 


15 


649 




* 






16 


650 




# 


THE FOLLOWING IS GENERATED OUT ( 


17 


651 




# 














LITERALS 


18 




X 






+0 



7070 COMPILER SYSTEM VERSION OMY08# CHANGE LEVEL 00001* PAGE 

CDNO FD LOC INSTRUCTION REF 



+0003250348 

00001 0325 +0003270337 0325 

0326 -0003380348 0326 

09 0327 0000 

03 0337 0010 



00002 0349 +2300000355 

0350 +2201090000 

0351 -4601020001 

0352 +4801020010 

0353 +4601030000 

00003 0354 +6500030002 



00 0355 +0 0355 



ZERO Example 4 



The ZERO statement in this example references the label of a DA header 
line which specifies a relative address and implicit indexing. The con- 
tents of the current record area will be filled with plus zeros. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 

05 
06 

07 

08 
09 
10 

11 

12 
13 
14 
15 
16 
17 

18 



655 
656 



657 
658 
659 
660 
661 
662 
663 
664 



665 
666 
667 



DRDWNAME 
DRDWNAME 



AREANAME 

FIELDA 

FIELDS 

FIELDC 

FIELDD 

# 

ANYLABEL 
ANYLABEL 



OP OPERAND 

ZERO EXAMPLE 5 
DRDW AREANAME 
DRDW +AREANAME»AREANAME+24 
DRDW -AREANAME+25»AREANAME+49 

DA 2»*0+INDEXWORD 
00»99» 
100»103A 
104»129A 
130»249A 

ZERO DRDWNAME 

ZA2 +0 

STD2 DRDWNAME(0»9) 

THE FOLLOWING IS GENERATED OUT OF LINE 

LITERALS 
+ 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001* PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



00002 



0325 +0003270351 

0326 -0003520376 



+0003270376 



09 0327 

03 0337 

49 0337 

09 0340 



0377 +2300000379 

0378 -2200090325 



0000 
0010 
0010 
0013 



00 0379 +0 



0379 



ERROR MESSAGE LIST 
PG/LN MESSAGE 
AA 12 ZEROING INSTRUCTION. PAR.000001000A 



ZERO Example 5 

The warning message shown will be issued since the ZERO statement 
references the label of a DRDW. Coding has been generated, however, 
to cause the first RDW generated to be filled with plus zeros. 



LN 


CDREF 




LABEL 


OP 


OPERAND 


01 


671 




* 




ZERO EXAMPLE 6 


02 


672 




LINENAME 


DLINE 




03 


673 








1'1« 


04 


674 








10'TOTAL' 


03 




X 








06 


675 








18»S' 


07 


676 




GROSSAMT 




19X»XXX.ZZ)DR»CR 


06 


677 




CHECKAMT 




60$X»XXZ.ZZ) »C 


Ov 


678 




1 TEMNAME 




80t94 


13 


679 




FLVAR 




95F 


14 


680 








120« »R 


lb 


681 




* 






16 


682 




ANYLAfcitL 


ZERO 


CHECKAMT 


17 




X 


ANYLABEL 


ZA2 


+ 


18 




X 




STD2 


CHECKAMT(O-tl) 


19 




X 




ZA1 


i t 


20 




X 




ST1 


CHECKAMT(2»11) 


21 




X 




STD1 


CHECKAMT(12»19) 


22 


683 




# 






23 


684 




* 


THE FOLLOWING IS GENERATED 


24 


685 




* 














LITERALS 


25 




X 






+ 


26 




X 






i i 



N OMY08* 


CHANGE 


; LEVEL 00001. 


PAGE AA 


CDNO 


FD 


LOC 


INSTRUCTION 


REF 


00005 






+0003250348 




00006 


01 


0325 


'91 


0325 




89 


0326 


' 83 


0326 




07 


0327 


•76836173 


0327 




45 


0328 


• 25 


0328 




69 


0328 




0328 




89 


0336 




0336 


00007 


89 


0340 




0340 




89 


0343 




0343 


00008 


89 


0348 


• 80 


0348 



00009 



OUT OF LINE 



00010 00 

00011 01 



0349 +2300000354 

0350 -2200890336 

0351 +1300010355 

0352 +1200090337 

0353 -1200070338 



0354 +0 

0355 '00 



0354 
0355 



ZERO Example 6 



The contents of the DLINE field CHECKAMT is replaced with alphameric 
blanks. The sign of whole words in the field are set to alpha; the sign 
of partial words are not altered. 



PAC- 


iE AA 




PROGRAM 






LN 


CDREF 


LABEL 


OP 


OPERAND 


01 


689 




* 




ZERO EXAMPLE 7 


02 


690 




LINENAME 


DLINE 




03 


691 




AMOUNTONE 




19$X»XXX.ZZ 


0* 


692 




AMOUNTTWO 




30£X»XXX»XXX.XX 


05 


693 




* 






06 


694 




ANYLABEL 


ZERO 


LINENAME 


7 




X 


ANYLABEL 


ZA1 


i i 


08 




X 




ST1 


LINENAMEI0.9) 


09 




X 




XZA 


MACREG.lt LINENAME 


10 




X 




RS 


MACRE6.1.M.2 


11 


695 




# 






1*:. 


696 




* THE FOLLOWING IS GENERATEl 


13 


697 




# 






14 




X 


M.2 


DRDW 


-LINENAME+1»LINEN, 










L 1 TERALS 


15 




X 






i • 



7070 COMPILER SYSTEM VcRSION OMY08» CHANGE LEVEL 00001. 

CDNO FD LOC INSTRUCTION 



00002 



00003 



+0003250333 



69 0328 
89 0330 



0334 +1300010339 

0335 +1200090325 

0336 +4600010325 

0337 +6500010338 



0338 -0003260333 
00004 01 0339 '00 



PAGE A A 
REF 



0328 
0330 



0339 



ZERO Example 7 

The entire area, including constants, will be filled with alphameric 
blanks since the label of the DLINE header line is referenced in the 
ZERO statement. 



LN 


CDREF 




LAdEL 


OP 


OPERAND 


Oi 


6901 




* 


ZERO EXAMPLE 8 


Q<L 


6902 




AREANAME 


DA 


1 


03 


6903 




F IELDA 




00.23' 


04 


6904 




FIELDb 




30»35A 


05 


6905 




FlELDC 




45.55 


06 


6906 








65 


07 


6907 




ANYLABEL 


ZERO 


AREANAME 


08 




X 


ANYLABEL 


ZA2 


+ 


09 




X 




Si2 


AREANAME(0«9) 


10 




X 




XZA 


MACREG.l .AREANAME 


11 




X 




RS 


MACREG.l iM.2 


12 


6908 




* 






13 


6909 




* 


FHE FOLLOWING IS GENERATED OUT i 


14 


6910 




# 






15 




X 


M.2 


DRDW 


-AREANAMt+1 .AREANAME+6 










LITERALS 


16 




X 






+ 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



+0003250331 



09 


0325 




0325 


05 


0328 




0328 


59 


0329 




0329 


55 


0331 




0331 




0332 


+2300000337 






0333 


+2200090325 






0334 


+4600010325 






0335 


+6500010336 





00001 



0336 -0003260331 
00002 00 0337 +0 



0337 



ZERO Example 8 

Since the label of the DA header line is referenced by the ZERO state- 
ment, the entire area through digit position 69 will be filled with plus 
zeros. 



FILL — Fill Storage 



fill generates instructions to replace the contents of fields or areas with a speci- 
fied constant. 



Source Program Format The basic format for the fill statement in the source program is as follows: 



Line 



Label 



Operation 



OPERAND 



Basic Autocoder- 



A.N.YLA.BE.L, , 



FI.L.L 



F I.ELDA.A.RE.Al, WITH, ,i,h, AND, .F.l .E.L.D.B WI.T.H, l@.Z,@ etc 



anylabel is any symbolic label; it may be omitted. The entry fill and the and 
and with separators must be written exactly as shown, fielda, aeeaI, etc., may 
be the symbolic names of any defined fields or areas. Areas, numerical fields, and 
alphameric fields may be freely intermingled. 



Processing Techniques 
Limitations on Length 



The operand portion of the fill macro-instruction may contain up to 94 entries, 
including areas and fields to be filled, the with and and separators, and the char- 
acters to be inserted. There is no limit on the size of the fields named. 



Address Modification 



All symbolic addresses may be modified by indexing and address adjustment. 



The Effect of FILL 



Fields and Areas. The sign of the words in the field or area to be filled will not 
affect the generated instructions. Each word in the entire field or area, and any 
word in which a segment of the field may appear, will be set to the sign of the 
filling constant. It is thus possible to introduce invalid alpha combinations in the 
following two cases: 

1. The field specified is numerical and occupies part of a word(s) and is being 
filled with an alphameric character. 

2. A field with an odd number of digits, or a field that begins in an odd-num- 
bered position, is being filled with an alphameric character. 

In case 2, a warning message will be issued. 

If two fields are specified in the same word, and each field is to be filled with a 
different constant, the sign of the word is determined by the sign of the constant 
which fills a field last. 

The following examples illustrate the effect of fill on various fields. The field 
addressed is underlined. 
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No. 


Field 
Definition 


Filling 
Before FILL Constant After FILL 


1. 
2. 


00,09A10.0 

00,05A4.2 

05,14 

08,08 

00,15@ 

00,03 

04,09 


-1234567890 +9 +9999999999 
-1234560000 +1 +1111110000 


3. 


+6789523721 +4376411111 @y@ ©6789588888 ©88888111 11 


4. 
5. 


+1234567890 -1 -1234567190 
©0061626364 ©6564630000 +9 +9999999999 +9999990000 


6. 


+1234567890 -1 -1111567890 
-1111567890 +2 +1111222222 



In example 3, invalid, double-digit combinations (58, 81, and 11) are introduced. 
These may cause machine difficulties when an attempt is made to print out these 
words. 

Declarative Statement Header Lines. When fill references the label of a da 
header line, coding will be generated to cause the following: 

1. If the da header line does not specify a relative address and implicit index- 
ing, the first record area defined will be filled with the specified value. 

2. If the da header line specifies a relative address and implicit indexing, the 
current record area ( as determined by the contents of the implicit index word ) 
will be filled with the specified value. 

If fill references the label of a dline header line, coding will be generated to 
cause the entire area, including constants (if any), to be filled. 

If fill references the label of a dedw, a warning message will be issued, but cod- 
ing will be generated to cause the first rdw generated (not the area it defines) 
to be filled. 

When fill references the label of any other declarative statement header line, 
coding will be generated to cause the entire area to be filled. 

Instructions. If fill references the label of an instruction, a warning message 
will be issued, but coding will be generated to cause the instruction to be filled. 

Error and Warning Tne following error and warning messages will be issued during assembly under 

Messaqes ^ e conditions specified: 

ATTEMPTING to fill hardware, par. XX 

The field to be filled has been defined by means of an equ line as a hardware 
device. A nop will be generated. 

filling instruction, par. xx 

This warning message, with the parameter number of the faulty entry in place 
of the xx, will be issued whenever an attempt is made to fill an instruction, 
whether symbolic machine or macro. Coding will be generated, however. 

no field size. par. xx 

The parameter record of the operand entry, whose number replaces the xx of 
the message, does not indicate the size of the field to be filled. A nop will be 
generated. 
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WARNING. INVALID ALPHA MAY BE INTRODUCED. 



An alphameric character is filling a field with an odd number of digits, or a 
field that begins in an odd-numbered position, 

Examples The following are examples of acceptable coding for the fill macrc-instruction, 

For each, the associated source-program entries are given, followed by the fill 
statement, coding generated in-line, and coding generated out-of-line. 
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PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08 ♦ CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


902 




# 




Fl LL EXAMPLE 1 




02 


903 






DA 


1 




03 


904 




FIELDA 




06»09A 




04 


90b 




F IELDB 




10.19A 




05 


906 




FIELDC 




28,31A 




06 


907 




■* 








07 


908 




ANYLABEL 


FILL 


FIELDA WITH -fl AND FIELDB W 1 TH - 


1 AND FIELDC 


08 




X 


ANYLABEL 


ZA1 


+1111111111 




09 




X 




ST1 


FIELDA(0»3) 




10 




X 




ZA1 


-1111111111 




11 




X 




ST1 


FIELDB(0*9) 




12 




X 




ZA1 


i YYYYY' 




13 




X 




ST1 


FIELDC(Otl) 




14 




X 




ST1 


FIELDC(2»3) 




15 


909 




* 








16 


910 




# 


FHE FOLLOWING IS GENERATED OUT OF LINE 




17 


911 




# 
















LITERALS 




18 




X 






+1111111111 




19 




X 






-1111111111 




20 




X 






•YYYYY" 





WITH «Y« 



00001 



00002 



+0003250328 



69 0325 
09 0326 
89 0327 



0329 +1300090336 

0330 +1200690325 

0331 +1300090337 

0332 +1200090326 

0333 +1300090338 

0334 +1200890327 

0335 +1200010328 



09 0336 +1111111111 

09 0337 -1111111111 

00003 09 0338 • 8888888888 



0325 
0326 
0327 



0336 
0337 

0336 



uRROR MESShGE LIST 
PG/LN MESSAGE 

AA 07 WARNING- INVALID ALPHA MAY BE INTRODUCED 

FILL Example 1 



FIELDA and FIELDB will be filled with Is and the sign of the words in 
which each appears will be set to plus and minus respectively. FIELDC 
will be filled with Ys and, since it bridges words, the signs of the two 
words in which it appears will be set to alpha. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
0^ 
03 
04 
03 
06 
07 
08 
0* 
10 
11 
12 
13 
14 
15 
16 
17 
lb 
1* 

20 
21 

12 



914 
915 
916 
917 
918 
919 
920 
921 
922 



923 
924 
925 



OP 

FILL 
DA 



AF 

6F 
CF 
DF 



IELD 
IELD 
IELD 
IELD 



OPERAND 

EXAMPLE 2 
2 

00.09' 
1Q.15» 
20.23' 
30.33* 



7070 COMPILER SYSTEM VERSION OMY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



+0003250332 



ANYLAbEL FILL AFIELD WITH • • AND BF I ELD. CF I ELD WITH +1 AND 





09 


0325 




05 


0326 




03 


0327 




03 


0326 


DFIELD 







X ANYLAbEL 

X 

X 

X 

X 

X 

X 

* 



2A1 
ST1 
ZA1 
ST1 
ST1 
2A1 
ST1 



WITH -1 
i i 

AFIELD(0»9) 
+1111111111 
6F I ELD (0.5) 
CFIELDI0.3) 
-1111111111 
DF»ELD(0.3) 



THE FOLLOWING IS GENERATED OUT OF LINE 

LITERAL5 

+1111111111 
-1111111111 



00001 0333 +1300090342 

0334 +1200090325 

0335 +1300090340 

0336 +1200050326 

0337 +1200030327 

00002 0338 +1300090341 
0339 +1200030328 



09 0340 +1111111111 

09 0341 -1111111111 

00003 09 0342 '0000000000 



0325 
0326 
0327 
0328 



0340 
0341 
0342 



FILL Example 2 



In the first record area defined, AFIELD will be filled with alphameric 
blanks. B FIELD and C FIELD will be filled with Is and the sign of the 
word in which each appears will be set to plus. DFIELD will also be 
filled with Is, but the sign of the word will be set to minus. 



PAGE AA PROGRAM 
LN CDREF LABEL 



OP 



OPERAND 



01 


928 




* 




FILL EXAMPLE 3 


Q<l 


929 






DA 


2.RDW.0+INDEXWQRD 


03 




X 








04 




X 








Ob 


930 




A 




00.01 


06 


931 




B 




10.11 


07 


932 




C 




20.21 


Oa 


933 




# 






09 


934 




ANYLAbEL 


FILL 


A WITH +9 AND B W 


10 




X 


ANYLAbEL 


ZA1 


+9999999999 


11 




X 




ST1 


A(0»1)+INDEXWQRD 


12 




X 




ZA1 


-9999999999 


13 




X 




ST1 


B(0.1 )+INDEXWGRD 


14 




X 




ZA1 


•zzzzz» 


15 




X 




ST1 


C(Oil )+INDEXWORD 


16 


935 




# 






17 


936 




* TH 


E FOLLOWING IS GENERATED 


16 


937 




* 














L 1 TERAL5 


19 




X 






+9999999999 


20 




X 






-9999999999 


21 




X 






'ZZZZZ' 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



TH -9 AND C Wl TH «Z« 



00002 



00003 



LINE 



+0003250332 





0325 


+0003270329 


03,r-~> 




0326 


-0003300332 


0326 


01 


0327 




0000 


01 


0328 




0001 


01 


0329 




0002 




0333 


+1300090339 






0334 


+1201010000 






0335 


+1300090340 






0336 


+1201010001 






0337 


+1300090341 






0338 


+1201010002 





09 0339 +9999999999 0339 

09 0340 -9999999999 0340 

00004 09 0341 '8989898989 0341 



FILL Example 3 



In the current record area, as determined by the contents of the implicit 
index word, fields A and B will be filled with 9s and the sign of the word 
in which each appears will be set to plus and minus respectively. Field 
C will be filled with Zs and the sign of the word will be set to alpha. 



to 

o 

ISO 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 



7070 COMPILER SYSTEM VERSION 0MY08. CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



940 
941 
942 
943 
944 
945 
946 



947 
948 
949 



AREANAME 

FIELDA 

FIELDB 

FIELDC 

* 

ANYLABEL 

ANYLABEL 



DA 



FILL 

ZA1 

STl 

ST1 

STl 



FILL EXAMPLE 4 
1 

00.03A 
10»13' 
20,23 

AREANAME WITH +0 

+0000000000 

AREANAMEI0.9) 

AREANAMEU0.19) 

AREANAME(20,29) 



03 0325 
03 0326 
03 0327 



00001 



THE FOLLOWING IS GENERATED OUT OF LINE 



LITERALS 

+0000000000 



+0003250327 



0328 +1300090332 

0329 +1200090325 

0330 +1200090326 

0331 +1200090327 



0325 
0326 
0327 



09 0332 +0000000000 



0332 



FILL Example 4 



Since the FILL statement references the label of the DA header line, the 
entire record area through digit position 29 will be filled with Os and the 
signs of the three words affected will be set to plus. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPcRAND 



01 

03 
04 
05 
06 
07 
08 
09 
10 
11 
12 

u 
ip 

16 

17 



952 
953 



AREANmMc 



954 
955 
956 
957 
958 



FIELDA 

FIELDb 

FIELDC 

* 

ANYLAoEL 

ANYLABEL 



959 
960 
961 



FILL EXAMPLE 5 
DA 2 »RDW»0+ INDEXWORt 



00.03A 
10.13" 
20i23 

FILL AREANAME WITH -0 

ZA1 -0000000000 

STl 0<Oi9)+INDEXWORD 

STl 0(10»19)+INDEXW0RD 

STl 0120»29)+INDEXWQRD 



7070 COMPILER SYSTEM VERSION OMY08t CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



00002 







+0003250332 






0325 


+0003270329 


0325 




0326 


-0003300332 


0326 


03 


0327 




0000 


03 


0328 




0001 


03 


0329 




0002 




0333 


+1300090337 






0334 


+1201090000 






0335 


+1201090001 






0336 


+1201090002 





THE FOLLOWING IS GENERATED OUT OF LINE 



LITERALS 

-0000000000 



09 0337 -0000000000 



0337 



FILL Example 5 



Since the label of the DA header line is addressed in the FILL statement, 
the entire area through digit position 29 will be affected. Since implicit 
indexing has been used, the current record area will be filled with zeros 
and the signs of the three words affected will be set to minus. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08« CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



OX 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 



964 
965 
966 
967 
966 
969 
970 



971 
972 



AREANAME 

AF I ELD 

BFIELO 

CFIELU 

* 

DRDWNAME 

DRDWNAME 



ANYLABEL 
ANYLABEL 



973 
974 
975 



FILL EXAMPLE 6 
DA 2».0+INDEXWORD 
00.19A 
20.49' 
50*99 

AREANAME 

+AREANAMEiAREANAME+9 

-AREANAME+10»AREANAME+19 



DRDW 
DRDW 
DRDW 

FILL 

ZA1 

ST1 



DRDWNAME WITH 

-t-0000000000 

DRDWNAMEI0.9) 



+ 



THE FOLLOWING IS GENERATED OUT OF LINE 



LITERALS 

+0000000000 



00001 



+0003250344 



09 0325 
09 0327 
09 0330 



0345 +0003250334 

0346 -0003350344 



0347 +1300090349 

0348 +1200090345 



09 0349 +0000000000 



0000 
0002 
0005 



0349 



ERROR MESSAGE LIST 
PG/LN MESSAGE 
AA 11 FILLING INSTRUCTION 



FILL Example 6 

The warning message shown will be issued since the FILL statement 
references the label of a DRDW. Coding has been generated, however, 
to cause the first RDW generated to be filled with Os and the sign set to 
plus. 



LN 


CDREF 




LABEL 


OP 


OPERAND 


01 


978 




# 


FILL EXAMPLE 7 


02 


979 




LINENAME 


DLINE 




03 


980 




GROSSAMT 




1QSXX.ZZZ.ZZ 


04 


981 




TOTEXPENSE 




25*XX»XXX.ZZ 


05 


982 




NETAMT 




40$XX»ZZZ.ZZ 


06 


983 




* 






07 


984 




ANYLABEL 


FILL 


TOTEXPENSE WITH +0 


06 




X 


ANYLABEL 


2A1 


+0000000000 


09 




X 




ST1 


T0TEXPENSE10.1) 


10 




X 




ST1 


T0TEXPENSE(2»11) 


11 




X 




ST1 


TOTEXPENSE(12il9) 


12 


985 




* 






13 


986 




* THE FOLLOWING IS GENERATED 


14 


987 




# 







7070 COMPILER SYSTEM VERSION OMYO81 CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00002 



+0003250334 



15 



LITERALS 

+0000000000 



89 0326 
89 0329 
89 0332 



00003 0335 +1300090339 

0336 +1200890329 

0337 +1200090330 

0338 +1200070331 



09 0339 +0000000000 



0326 
0329 
0332 



0339 



FILL Example 7 



The DUNE field TOTEXPENSE will be filled with Os and the signs of 
the words affected will be set to plus. 



to 

o 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 



990 
991 
992 
993 
994 
995 
996 



997 
998 
999 



LINENAME 

CUSTOMER 
AMOUNT 

ANYLAbEL 
ANYLAdEL 



X M.l 



OP 



OPERAND 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. PAGE AA 

CDN0 FD LOC INSTRUCTION REF 



FILL EXAMPLE 8 
DLINE 

1' • 

10*29 

30»XXX.ZZZ.ZZ)DR»CR 

FILL LINENAME WITH +0 

ZA1 +0000000000 

ST1 LINENAME(0»9) 

XZA MACREG«01»LINENAME 

RS MACREG«01»M.l 

THE FOLLOWING IS GENERATED OUT OF LINE 

DRDW -LINENAME+l*LINENAME+8 
LI TERALS 

+0000000000 



00002 






+0003250333 




00003 


09 


0325 


•0000000000 


0325 




89 


0326 




0326 




89 


0330 




0330 


00004 




0334 
0335 
0336 
0337 


+1300090339 
+1200090325 
+4600010325 
+6500010338 





0338 -0003260333 
00005 09 0339 +0000000000 



0339 



FILL Example 8 



The entire area, including constants, will be filled with Os and the signs 
of the words affected will be made plus since the label of the DLINE 
header line is referenced in the FILL statement. 



EDMOV — Edit and Move Data 



edmov generates instructions to transfer data between specified fields in storage 
and to edit them to conform to the format of the field to which they are moved. 

Source Program Format The basic format of the edmov statement in the source program is the following: 



Label 



Operation 



Basic Autocoder- 



Autod 



ANY LABEL 



FROMF.IEL Dl, TO, T.O.F I ,E,L.D 3... ,F R.OM.F I E.L.D 2. ,T,0 T.OF 



I ELD 2.. etc, 



anylabel is any symbolic label; it may be omitted. The entry edmov must be writ- 
ten exactly as shown. 

fromfield entries may be literals or symbolic addresses of areas from which data 
is to be moved. The data of fromfield may be alphameric, automatic-decimal, 
floating-decimal, mixed, or of unspecified characteristics. Automatic-decimal and 
floating-decimal data may be in single- or double-digit representation; data which 
is mixed or of unspecified characteristics is treated in the same way as alphameric 
data. 

tofield entries are symbolic addresses of areas to which the edited data is to 
be moved. A tofield area may be any field defined as alphameric, automatic- 
decimal, or floating-decimal, or may be a print format defined in a dline subse- 
quent entry. Automatic-decimal and floating-decimal data may be in a single- 
or double-digit representation. 

The operator to must be written exactly as shown, preceded and followed by a 
blank. Each entry must have both a fromfield and a tofield. If more than one 
entry is made in the operand of a statement, commas must be used to separate 
them. 



Processing Techniques 
Limitations on Length 



A maximum of four entries may be written in the operand. Field size is restricted 
as follows: 



Field 



Size 



Automatic-decimal, single-digit 
Automatic-decimal, double-digit 
Floating-decimal, single-digit 
Floating-decimal, double-digit 
Alphameric, mixed, unspecified 



not more than 20 digits 

o 

not more than 20 characters (40 digits) 
exactly one word 
exactly two words 
unrestricted 



Other Limitations 



da, dc, and dline header lines cannot be used as parameters in an edmov state- 
ment. 
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Address Modification 
The Effect of EDMOV 



All symbolic addresses may be modified by indexing and address adjustment. 

All alphameric, mixed, and unspecified fields will be passed on to the move macro 
generator for processing. No editing is done. 

Each of the twenty-two possible types of numerical editing is accomplished by 
a sequence of steps selected from the following nine basic types of conversion: 



1. Automatic-decimal, single-digit 

2. Floating-decimal, single-digit 

3. Automatic-decimal, double-digit 

4. Floating-decimal, double-digit 

5. Automatic-decimal, old format 

6. Automatic-decimal 

7. Floating-decimal 

8. Automatic-decimal, double-digit 



to Automatic-decimal, double-digit 
to Floating-decimal, double-digit 
to Automatic-decimal, single-digit 
to Floating-decimal, single-digit 
to Automatic-decimal, new format 
to Floating-decimal 
to Automatic-decimal 
to Print format 
to Print format 



9. Floating-decimal, double-digit 

The chart on page 207 shows the sequence for each of the twenty-two types of 
editing. 

The rules governing each of the nine types of conversion are as follows: 

1. Automatic-Decimal, Single-Digit to Automatic-Decimal, Double-Digit. Con- 
version is accompanied by sign conrol; positive numbers will show a 6 in 
the next-to-last digit, negative numbers a 7. The sign position of the con- 
verted number will have an @ . If the result is stored in part of a word, the 
sign of the entire word will be set to @. The following examples illustrate 
this conversion: 



Before Conversion 



After Conversion 



+7627 
-4502 



@bb97969267 
@bb94959072 



FROM- 



Floating-Decimal, Single-Digit to Floating-Decimal, Double-Digit. 
field must occupy exactly one word; tofield will occupy exactly two words, 
both of which will have an @ sign. Sign control will be indicated in digit 8 
of the second word; a 6 indicates a positive number, 7 a negative number. 
The following examples illustrate this conversion: 



Before Conversion 



After Conversion 



+5212345678 @ 9592919293® 9495969768 

-4587654321 ©9495989796 ©9594939271 

3. Automatic-Decimal, Double-Digit to Automatic-Decimal, Single-Digit. Con- 
version is accompanied by sign sensing. The sign of tofield will be set to 
plus if the next-to-last digit of fromfield is different from 7, minus if it is 7. If 
the result is stored in part of a word, the sign of the entire word will be set to 
the sign of the result. The converse of the examples included under 1, above, 
illustrates this conversion. 

4. Floating-Decimal, Double-Digit to Floating-Decimal, Single-Digit, from- 
field must occupy exactly two words; tofield will occupy one word. Conver- 
sion is accompanied by sign sensing. The sign of tofield will be set to plus 
if digit 8 of the second word of fromfield is different from 7, minus if it is 7. 
The converse of the examples included under 2, above, illustrates this con- 
version. 

5. Automatic-Decimal, Old Format to Automatic-Decimal, New Format. Four 
cases are distinguished: 
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bo 
© 



SEQUENCE OF EDITING 



FROMFIELD TOFIELD 


TYPE OF CONVERSION 

Automatic-decimal, Floating-decimal, Automatic-decimal, Floating-decimal, Automatic-decimal, 

single-digit single-digit double-digit double-digit old format Automatic-decimal Floating-decimal, 

to to to to to Automatic-decimal Floating-decimal double-digit double-digit 
Automatic-decimal Floating-decimal, Automatic-decimal, Floating-decimal, Automatic-decimal, to to to to 
double-digit double-digit single-digit single-digit new format Floating-decimal Automatic-decimal Print format Print format 


Automatic-decimal, Automatic-decimal, 
single-digit single-digit 

Automatic-decimal, 

double-digit 

Floating-decimal, 

single-digit 

Floating-decimal, 

double-digit 

Automatic-decimal, 

print format 

Floating-decimal, 

print format 


1 

2 1 

1 

2 1 
1 2 

2 13 


Automatic-decimal, Automatic-decimal, 
double-digit single-digit 

Automatic-decimal, 

double-digit 

Floating-decimal, 

single-digit 

Floating-decimal, 

double-digit 

Automatic-decimal, 

print format 

Floating-decimal, 

print format 


1 2 
3 12 

1 2 
3 1 2 

1 
3 1 2 4 


Floating-decimal, Automatic-decimal, 
single-digit single-digit 

Automatic-decimal, 
double-digit 
Floating-decimal, 
double-digit 
Automatic-decimal, 
print format 
Floating-decimal, 
print format 


1 

2 1 

1 
2 13 

1 2 


Floating-decimal, Automatic-decimal, 
double-digit single-digit 

Automatic-decimal, 
double-digit 
Floating-decimal, 
single-digit 
Automatic-decimal, 
print format 
Floating-decimal, 
print format 


1 2 
3 1 2 

1 
3 1 2 4 

1 



a. tofield has more decimal places than fromfield. These new decimal 
places will be filled with zeros. For example, a field whose automatic- 
decimal format is 3.2 is converted to a field whose format is 3.4. If the field 
contains 123.45 before conversion, it will contain 123.4500 after conversion. 

b. tofield has fewer decimal places than fromfield. Extraneous decimals 
will be truncated after rounding. For example, a field whose automatic- 
demical, format is 2.3 is converted to a field whose format is 2.2. If the 
field contains 55.467 before conversion, it will contain 55.47 after conver- 
sion; if it contains 55.464 before, it will contain 55.46 after. 

c. tofield has more integer places than fromfield. These new integer places 
will be filled with high-order zeros. For example, a field whose automatic- 
decimal format is 2.3 is converted to a field whose format is 4.3. If the 
field contains 56.125 before conversion, it will contain 0056.125 after con- 
version. 

d. tofield has fewer integer places than fromfield. A warning message will 
be issued during assembly that high-order digits may be lost. For example, 
a field whose automatic-decimal format is 4.1 is converted to a field whose 
format is 2.1. If the field contains 1545.7 before conversion, it will con- 
tain 45.7 after conversion. 

Combinations of these conditions will cause all of the indicated actions to 
be taken. 

6. Automatic-Decimal to Floating-Decimal. The first eight significant digits will 
be converted; others will be truncated without rounding. An automatic-deci- 
mal number is converted to a standard 7070 normalized, floating-decimal 
word. For example, -123.456789 is converted to -5312345678. 

7. Floating-Decimal to Automatic-Decimal. Four cases are distinguished: 

a. tofield can accommodate the entire converted field. Any excess decimal 
places or integer places are filled with zeros. For example, if a field which 
contains +5287654321 is converted to a field whose automatic-decimal 
format is 4.7, the result will be +0087.6543210. 

b. An integer of the converted number falls to the left of the high-order place 
of tofeeld. This is an overflow condition, and the overflow latch on Ac- 
cumulator 1 will be set on. No warning message can be issued during as- 
sembly since this condition cannot be predicted on the basis of floating- 
decimal format alone. All digits that can be accommodated in their proper 
places will be stored. For example, if a field which contains —5412345678 
is converted to a field whose automatic-decimal format is 3.5, the result 
will be —234.56780 and the overflow latch of Accumulator 1 will be turned 

ON. 

c. The first digit of the converted number falls into one of the places of to- 
field, but the decimals cannot be accommodated. Excess decimals will 
be truncated after rounding. For example, if a field which contains 
+4823456789 is converted to a field whose automatic-decimal format is 
1.7, the result will be +0.0023457; if a field which contains -5398765432 
is converted to a field whose format is 3.3, the result will be -987.654. 

d. The first digit of the converted number falls to the right of the low-order 
place of the result field. Since the decimal value of the number is too 
small to register in the format of the result field, the field will be set equal 
to zero. For example, if a field which contains +3575757575 is converted 
to a field whose automatic-decimal format is 2.3, the result will be +00.000. 
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Automatic-Decimal, Double-Digit to Print Format. Editing is performed to 
fit data to a dline print image. ( See page 65. ) The necessary commas, deci- 
mal points, and other characters will be inserted. 

Floating-Decimal, Double-Digit to Print Format. Editing is performed to con- 
vert a floating-decimal number to dline print format which is ± nn ±. 
xxxxxxxx, where ± nn is a two-digit exponent ±.xxxxxxxx is an eight-digit 
number. The value of the number is ±. xxxxxxxx multiplied by 10 ±nn . For ex- 
ample, @9591999897@9695949372 (Which is -5198765432 in single-digit 
form) will be printed as +01-.98765432, representing the number -.98765432 
X 10 1 . 



Error and Warning 
Messages 



The following error and warning messages will be issued during assembly under 
the conditions specified. 

BLANK PARAMETER XX 

A parameter has been omitted. Its number will replace the xx of the message. 
A nop will be generated. 

HIGH-ORDER DIGITS LOST OF PARAMETER XX 

The field in which the edited data is to be stored has a format that will cause 
loss of integer digits on the left. Such digits as can be accommodated in their 
proper places will be stored. 

PRINT SUPPRESSED IF ALL ZERO 

A print-line format has been written in such a way that all numerical positions 
are marked by Xs. A zero value for this field will result in no print at all. 

TO-FIELD NOT ALPHA. PARAMETER XX 

An attempt has been made to move an alphameric, mixed, or unspecified field 
to a field that is not alpha. The parameter number of the tofield will replace 
the xx of the message. The field will be moved but not edited. 

UNACCEPTABLE PARAMETER XX 

The xx will be replaced by the number of a parameter that is not one of the 
types fisted as acceptable under "Source Program Format." A nop will be 
generated. 



Examples 



The following are examples of acceptable coding for the edmov macro-instruc- 
tion. For each, the associated source-program entries are given, followed by the 
edmov statement coding generated in-line and coding generated out-of-line. 
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LN 


CDREF 


LABEL 


OP 


OPERAND 


01 


701 




* 




EDMOV EXAMPLE 1 


02 


702 




SOMELABEL 


DLINE 




03 


703 




FIELDS 




10X»XXX.ZZ) 


04 


704 






DA 


1 


05 


705 




FIELDA 




0O»05A4.2 


06 


706 




* 






07 


707 




ANYLAbEL 


EDMOV 


FIELDA TO FIELDB 


08 




X 


ANYLABEL 


ZA2 


FIELDA(0t5) 


09 




X 




ST2 


COMAREA.A+2 


10 




X 




XZA 


MACREG.01 tCQMAREA.A+2 


11 




X 




ENB 


MACREG.Oi »EDMOV02 .A 


12 




X 




ZA3 


COMAREA.A ( 8 t9) 


13 




X 




ST3 


FIELDB(0»1) 


14 




X 




BZ3 


*+2 


15 




X 




ZA3 


• t • 


16 




X 




ST3 


FIELDB(2»3) 


17 




X 




ZA3 


C0MAREA#A(10»15) 


16 




X 




ST3 


FIELDB(4.9) 


19 




X 




BZ3 


*+2 


20 




X 




ZA3 


••• 


21 




X 




ST3 


FIELDB(lOill) 


22 




X 




ZA3 


CQMAREA.A(16»19) 


23 




X 




ST3 


FIELDB( 12»15) 


24 




X 




ZA3 


191 


25 




X 




ST3 


FIELDB(12»12) 


26 




X 




ST3 


FIELDB(14tl4) 


27 


708 




* 






28 


709 




* THE FOLLOWING IS GENERATED OUT 


29 


710 




* 






30 




X 


EDMOV02.A 


DRDW 


-COMAREA.A »C0MAREA.A+1 


31 




X 


COMAREA.A 


DA 












LITERALS 


32 




X 






••• 


33 




X 






• »• 


34 




X 






191 



7070 COMPILER SYSTEM VERSION OMY08t CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 +0003250328 

89 0326 

+0003290329 
05 0329 



00002 



00003 



00004 



00005 



0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 



+2300050329 
+2200090352 
+4600010352 
+5700010349 
+3300890350 
+3200890326 
+3000090338 
+3300230353 
+3200010327 
+3300050351 
+3200270327 
+3000090343 
+3300010353 
+3200890327 
+3300690351 
+3200030328 
+3300450353 
+3200000328 
+3200220328 



0349 -0003500351 
+0003500352 

00006 01 0353 • 15 

23 0353 • 35 
45 0353 • 99 



0326 
0329 



0353 
0353 
0353 



EDMOV Example 1 



The automatic -decimal field FIELDA is edited to the print format specified 
in the DLINE entry. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 
Ob 
09 
10 
11 
12 
13 
14 

13 
16 
17 
lb 
19 
20 
21 
22 
23 

24 

23 



714 
715 
716 
717 
718 
719 
720 



721 
722 
723 



AUTODECNO 

FLTPTNO 

AiMYLAdEL 
X ANYLABEL 
X 
X 
X 
X 

X FLOT1.A 

X 

X FLOT2.A 

X 

X 

X 

X 

X FLOT3.A 

X 
X 



OP OPERAND 

EDMOV EXAMPLE 2 
DA 1 

00»09A8.2 
DA 1 

00.09F 

EDMOV AUTODECNO TO FLTPTNO 

ZA1 +0 

ZA2 AUTODECNO(0»9) 

ZA3 +0000000068 

BLX 94»FLOT2.A 

ZSTl FLTPTNO 

THE FOLLOWING IS GENERATED OUT OF LINE 

SLC1 MACREG.l 

B *+2 

SLC MACREG.l 

BZ1 0+X94 

S3 MACREG.K4>5) 

SRI 2 

STD3 9991(0tl) 

B 0+X94 

LITERALS 

+0000000068 

+ 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001 • PAGE AA 

CDNO FD LOC INSTRUCTION REF 



09 0325 



09 0326 



00001 



00002 



00003 



+0003250325 



+0003260326 



0327 +1300000341 

0328 +2300090325 

0329 +3300090340 

0330 +0200940334 

0331 -1100090326 



0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 



+5000011300 
+0100090335 
-5000010300 
+1094090000 
-3400450001 
+5000001002 
-3200019991 
+0194090000 



0325 
0326 



09 0340 +0000000068 
00 0341 +0 



0340 
0341 



EDMOV Example 2 



The automatic -decimal number is edited to the floating -decimal format. 



PAGE AA PROGRAM 

LN CDRtF LABtL OP OPERAND 



01 


727 




* 




tDMOV EXAMPLE 3« 


02 


728 




SOMELABEL 


DUNE 




03 


729 




AMT 




10$XtXXX.ZZ)DR»CR 


0* 


730 






DA 


2»»0+INDEXWORD 


05 


731 




AMTFIELD 




3»9A4.3 


06 


732 




* 






07 


733 




ANYLABtL 


EDMOV 


AMTFIELD TO AMT 


08 




X 


ANYLAtSEL 


ZA2 


AMTFIELD(0.6)+INDLXWORD 


OS 




X 




SRR2 


1 


10 




X 




BM2 


M.6 


11 




X 




ZA3 


• OR' 


12 




X 


M.3 


ST3 


AMT(18t21) 


13 




X 




ST2 


COMAREA.A+2 


14 




X 




XZA 


MACREG.01 iCOMAREA.A+2 


lb 




X 




ENA 


MACREG.01«EDMOV02.A 


16 




X 




ZA3 


i i 


17 




X 




ST3 


AMT(Otl) 


18 




X 




ST3 


AMT(2»9) 


19 




X 




SLC2 


MACREG.02 


20 




X 




ZA3 


i s i 


21 




X 




6 


M.4-4+MACREG.02 


22 




X 


M.5 


ST3 


AMT<0»1) 


23 




X 




ZA3 


C0MAREA.A(«»9) 


24 




X 




ST3 


AMT(2t3) 


25 




X 




ZA3 


• .' 


26 




X 




ST3 


AMT(4i5) 


27 




X 




ZA3 


COMAREA.AI lOtll ) 


in 




X 




ST3 


AMT(6t7) 


29 




X 




ZA3 


COMAREA.A(12il3) 


30 




X 




ST3 


AMT18.9) 


31 




X 




ZA3 


C0MAREA.A(14il5) 


32 




X 




ST3 


AMT(lOill) 


33 




X 




ZA3 


i , i 


34 




X 




ST3 


AMT<12»13) 


33 




X 




ZA3 


COMAREA.A(16»17) 


36 




X 




ST3 


AMTI14.15) 


37 




X 




ZA3 


C0MAREA.A(18il9) 


36 




X 




ST3 


AMT ( 16 1 17 I 


39 


734 




•* 






40 


735 




• 


The following is generated out 


41 


736 




• 






42 




X 


M.6 


ZA3 


• CRi 


43 




X 




B 


M.3 


44 




X 


EDMOV02.A 


DRDW 


-C0MAREA.A»C0MAREA.A+1 


45 




X 


M.4 


B 


M.5 


46 




X 




B 


M.5+4 


47 




X 




B 


M.5+6 


46 




X 




B 


M.5+8 



7070 COMPILER SYSTEM VERSION 0MY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 +0003250328 

89 0326 0326 

+0003290330 
39 0329 0000 



00004 



00006 



00009 



0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 



0362 
0363 
0364 
0365 
0366 
0367 
0366 



+2301390000 
+5000002101 
-2000090362 
+3300090377 
+3200690328 
+2200090374 
+4600020374 
+5600020364 
+3300090375 
+3200890326 
+3200070327 
+5000032300 
+3300230378 
+0103090361 
+3200890326 
+3300890372 
+3200010327 
+3300450378 
+3200230327 
+3300010373 
+3200450327 
♦3300230373 
+3200670327 
+3300450373 
+3200890327 
+3300010378 
+3200010328 
+3300670373 
+3200230328 
+3300890373 
+3200450328 



+3300090376 
+0100090335 
-0003720373 
+0100090345 
+0100090349 
+0100090351 
+0100090353 



PAGE Act PROGRAM 

LN CD.REF LABEL OP OPERAND 



01 


X 




B 


M.5+10 


02 


X 




B 


M.5+10 


03 


X 




B 


M.5+10 


04 


X 


COMAREA.A 


DA 










LITERALS 


05 


X 






i I 


06 


X 






' CR' 


07 


X 






• DR< 


08 


X 






i,i 


09 


X 






i$i 


10 


X 






i , i 



CDNO FD LOC INSTRUCTION 

0369 +0100090355 

0370 +0100090355 
00010 0371 +0100090355 

+0003720374 



00011 09 
09 
09 
01 
23 
45 



0375 '0000000000 

0376 '0000006379 

0377 '0000006479 

0378 «15 
0378 • 25 
0378 • 35 



PAGE AB 
REF 



0375 
0376 
0377 
0378 
0378 
0378 



EDMOV Example 3 



An automatic-decimal number is edited to the print format with a floating 
dollar sign and debit and credit indication. 



MOVE — Move Data 



move generates instructions that will transmit data from one specified field or 
area in storage to another. 

Source Program Format The basic formats for the move statement in the source program are as follows: 



Line 



2 

3 

Q 4 

5- 



ANY LA.BEL, 



Label 



Operation 
20 



ANY, L A.BEL 



MOVE 



MOV.E, 



OPERAND 

40 



Basic Autocoder- 



TH.I.S.F.I ELD TO, THATFIELD 



FI.E.LD.A. F.l E.LDB,. etc. TO .THAT F,l ELD 



ANY LABEL 



MOVE 



THISF.I ELD .TO, F,l ,E L D D .,F I EL D,E . etc. 



ANY LABEL 



MOVE 



S TO, ,T, AND, ,U,,, V,., etc. TO. W, AN.D X T.0 Y.Z,.etc, 



In these examples, anylabel is any symbolic label; it may be omitted. The entry 
move must appear exactly as written, thisfield, fielda, fieldb, s, u, v, and x 
are either the symbolic names of the fields or areas to be moved or alphameric 
or numerical literals. Numerical literals must be signed, to and and are oper- 
ators that must be written exactly as shown, preceded and followed by a blank. 
thatfield, fieldd, fielde, t, w, y, and z are storage locations to which the data 
is to be moved; the addresses must be symbolic names of fields or areas. 

If there are several "from" fields (as in the second format) or several "to" fields 
(as in the third format), they must be separated by commas. It is not possible 
to move multiple "from" fields to multiple "to" fields; an attempt to do so will 
result in an error condition. 

Data may bridge words and start at any position in a word, both in the "from" 
fields and in the "to" fields. Symbolically referenced fields may be any length; 
literals are restricted as indicated under "Limitations on Length." Data charac- 
teristics do not affect the transmission. Data will always be left-justified in the 
field(s) to which they are moved. The sign of the last item stored in any location 
determines the sign of the entire word. 

In the first format, if thisfield is larger than thatfield, movement of data will 
be terminated when thatfield is filled. If thisfield is smaller than thatfield, 
the data from thisfield will be left-justified in thatfield and the remaining por- 
tion of thatfield filled with zeros. The sigh of these zero words will be the same 
as that of the last word moved. 

In the second format, the data in fielda will be moved to thatfield and left- 
justified. Data irom fieldb will be entered beginning with the digit position fol- 
lowing the one in which data from fielda terminated. The movement of data 
continues in the same fashion until the contents of all the specified "from" fields 
have been moved or until thatfield is filled. If all the "from" fields have been 
moved before thatfield is filled, the remainder will be filled with zeros. The 
sign of the zero words will be the same as that of the last word moved. 

In the third format, the data in thisfield will be moved to fieldd and to each 
subsequent field until all such fields are filled or thisfield has been completely 
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Processing Techniques 
Limitations on Length 



Address Modification 
The Effect of MOVE 



transferred. If the data in thisfield is accommodated in the "to" fields without 
filling them, the remainder of the field(s) will be zeroed out; the sign of the 
zero words will be the same as that of the last word moved. 

In the fourth format, several move operations are performed. The move opera- 
tions are linked by the operator and, as indicated. Any of the above three formats 
for the move statement may be used. 



The operand portion of the move macro-instruction may contain 75 parameters. 
The operators to and and are counted as parameters. No limitation is placed on 
the size of the field if it is referenced symbolically. Literals are restricted as fol- 
lows: alphameric literals, 120 characters; automatic-decimal literals, 20 digits. 

All symbolic addresses may be modified by indexing and address adjustment. 

The move macro-instruction is non-destructive in that it does not alter the con- 
tents of the "from" field(s). A possible exception might be the case in which the 
"to" field(s) begin to overlay the "from" field(s), in which case a strict left-to- 
right procedure of data movement would be maintained. 

The following examples illustrate the effect of move on various fields. 

No. "From" field(s) 



'To" fields) before MOVE "To" fields) after MOVE 



1 +1234567890 + 12345 

2 +1111111111+22-3333 

3 +1111111111 

4 -9876543210 

5 +8888888888+8888 

6 ©6162636465 

7 ©717273 

8 ©818283 



-6857463590-7948375403 

- 9999999999 +9999999999 

-99999-9999-9999 

+55555 

+0000000000-00 

+123456789 

+1234567 

+123+123 



+1234567890+1234500000 

+1111111111-2233330000 

+11111+1111+1000 

-98765 

+8888888888+88 

©616263646 

©7172730 

@818@283 



Examples 1, 4, 6, and 7 illustrate a single "from" field and a single "to" field. 
Examples 2 and 5 illustrate multiple "from" fields. Examples 3 and 8 illustrate 
multiple "to" fields. In examples 6, 7, and 8, machine difficulty may arise when an 
attempt is made to print out the "to" fields since invalid double-digit combina- 
tions were created at the end of each field by the move. 

Although the move macro-instruction may refer to the label(s) of any field or 
area, it is most frequently used in conjunction with input/output macro-instruc- 
tions. For example, records (other than Form 3 or Form 4 records as described 
in the bulletin "ibm 7070 Input/Output Control System") that have undergone 
preliminary processing in the input area may be moved to a work area by means 
of a move macro-instruction that references the labels of the da header lines of 
the input area and the work area. As another example, a print line might be in- 
cluded in a tape output file by following a put macro-instruction by a move 
macro-instruction that references the label of the dline header line and the label 
of the da header line of the output area. 

When move references the label of a declarative statement other than da or 
drdw, coding will be generated to cause, as a maximum, the entire area or con- 
stant defined to be moved or filled. 

When move references the label of a da header line which does not specify a 
relative address and implicit indexing, coding will be generated to cause, as a 
maximum, the first record area defined to be moved or filled. 
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Error and Warning 
Messages 



When move references the label of a da header line which specifies a relative 
address and implicit indexing, coding will be generated to cause, as a maximum, 
the current record area (as determined by the contents of the implicit index 
word) to be moved or filled. 

If move references the label of a drdw, coding will be generated to move the 
kdw only, not the area it defines. 

The following error and warning messages will be issued during assembly under 
the conditions specified: 

MULTIPLE FROM- AND TO-FTELDS 

An attempt has been made to move data from several fields to several others, 
which is a format violation. A nop will be generated. 

NO FIELD SIZE. PARAMETER XX 

The xx of the message is replaced by the number of a parameter for which the 
record does not indicate its size. Thus no coding can be generated to move its 
contents or to store data in it. A nop is generated. 

NO FROM-FIELD IN MOVE MACRO LINE 

The first parameter in the operand portion is the operator to. A nop is gen- 
erated. 

NO TO-FIELD IN MOVE MACRO LINE 

No parameter follows the operator to. A nop is generated. 

TO-FIELD(s) SMALLER THAN FROM-FDZLD ( S ) 

The field(s) to which data is to be moved cannot accommodate all of the data 
of the "from" field(s). Transmission terminates when the "to" area is filled. 

UNACCEPTABLE PARAMETER XX 

The xx of the message will be replaced by the number of a parameter that is 
not of the types listed under "Source Program Format" as valid. A nop is gen- 
erated. 



Examples 



The following are examples of acceptable coding for the move macro-instruction. 
For each, the associated source-program entries are given, followed by the move 
statement, coding generated in-line, and (where applicable) coding generated 
out-of-line. 
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to 

1— I 


PAGE AA 


PROGRAM 








LN 


CDREF 


LABEL 


OP 


OPERAND 




01 


740 


* 




MOVE EXAMPLE 1 




02 


741 




DA 


1 




03 


742 


HERE 




00»09A 




04 


743 




DA 


1 




05 


744 


THERE 




00»09A 




06 


745 


* 








07 


746 


ANYLABEL 


MOVE 


HERE TO THERE 




08 


X 


ANYLABEL 


2A2 


HERE(0.9) 




09 


X 




ST2 


THERE(0.9) 




10 


747 


* 







7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



09 0325 



09 0326 



00001 



+0003250325 



+0003260326 



0327 +2300090325 

0328 +2200090326 



0325 
0326 



MOVE Example 1 



A ten-digit, automatic -decimal number is moved from one location to 
another location of the same size. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 
Ob 
09 
10 
11 
12 
13 
14 
15 
16 
17 



751 
752 
753 
754 
755 
756 
757 
758 
759 



760 
761 
762 



HERE 

AA 
BB 
CC 
■*■ 

ANYLABEL 
ANYLABEL 



M.l 
M.3 
M.5 



OP OPERAND 

MOVE EXAMPLE 2 
DA 1 

00tl49» 
DA 1 

00.49' 

80il39' 

230f269« 

MOVE HERE TO AA»BB»CC 
XZA MACREG.l.HERE 
RS MACREfi.liM.l 

THE FOLLOWING IS GENERATED OUT OF LINE 

DRDW +AAtAA+4 
DRDW +BB»BB+5 
DRDW -CC»CC+3 



09 0325 

09 0340 

09 0348 

09 0363 



00001 



+0003250339 



+0003400366 



0367 +4600010325 

0368 +6500010369 



0369 +0003400344 

0370 +0003480353 

0371 -0003630366 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001* PAGE AA 

CDNO FD LOC INSTRUCTION REF 



0325 

0340 
0348 
0363 



MOVE Example 2 



A 75 -character (150-digit) alphameric field is moved to three fields, 
defined under a single DA, whose total storage area is also equal to 
150 digits. 



PAC 


it AA 


PROGRAM 






LN 


COREF 


LABEL 


OP 


OPERAND 


01 


766 


# 




MOVE EXAMPLh 3 


Od 


767 


F IELDS 


DA 


1 


03 


768 


EL 




00»07A 


04 


769 


FF 




08»15A 


05 


770 


# 






06 


771 


ANYLABEL 


MOVE 


FF TO EE 


0/ 


X 


ANYLABEL 


2A2 


FF(Otl) 


08 


X 




SL 


6 


09 


X 




A2 


FF(2#7) 


10 


X 




ST2 


EE(0»7) 


11 


772 


# 







7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



07 
89 



00001 



+0003250326 



0325 
0325 



0327 +2300890325 

0328 -5000000206 

0329 +2400050326 

0330 +2200070325 



0325 
0325 



MOVE Example 3 



An eight -digit field that bridges two locations is moved to a field that 
does not bridge locations. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



01 


776 




* 




MOVE EXAMPLE 4 


02 


777 




FIELDS 


DA 


1 


03 


778 




AA 




00tl9A 


04 


779 




BB 




20#99A 


05 


780 




CC 




100«229A 


06 


781 






DA 


1 


07 


782 




THERE 




00.239A 


08 


783 




* 






09 


784 




ANYLABEL 


MOVE 


AA»BB»CC TO THERE 


10 




X 


ANYLABEL 


XZA 


MACREG.1»THERE 


11 




X 




RG 


MACREG.l»M.l 


12 




X 




ZA2 


THERE(229#229) 


13 




X 




SL 


20 


14 




X 




ST2 


THERE(230»239J 


15 


785 




* 






16 


786 




* 


THE FOLLOWING IS GENERATE 


17 


787 




* 






18 




X 


M.l 


DRDW 


+AA»AA+1 


19 




X 


M.3 


DRDW 


+BB»BB+7 


20 




X 


M.5 


DRDW 


-CC#CC+12 



00001 



LINE 



00002 



0377 +0003250326 

0378 +0003270334 

0379 -0003350347 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 







+0003250347 




09 


0325 




0325 


09 


0327 




0327 


09 


0335 


+0003480371 


0335 


09 


0348 




0348 




0372 


+4600010348 






0373 


-6500010377 






0374 


+2300990370 






0375 


-5000000220 






0376 


+2200090371 





to 



MOVE Example 4 

Three automatic -decimal fields are moved to a single, larger field. 
The unoccupied portion of the "to" field is filled with zeros. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 

oa 

09 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 



812 
813 
814 



HERE 

THEREA 

THEREB 

THEREC 
* 

ANYLABEL 
ANYLABEL 



M.l 
M.3 



OP OPERAND 

MOVE EXAMPLE 5 
DA 1 

00.149' 
DA 1 

00*49* 
DA 1 

00»75» 
DA 1 

00»23« 

MOVE HERE TO THEREA i THEREB#THEREC 

XZA MACREG«1»HERE 

RS MACREG«l»M.l 

ZA2 HERE<120»125) 

ST2 THEREB(70»75) 

ZA1 HERE(126»129) 

ZA2 HEREQ30.139) 

SL 6 

A2 HERE(140»145) 

ST2 THERECt 10fl9) 

ST1 THEREC(0f9) 

ZA2 HERE(146»149) 

ST2 THEREC(20#23) 

THE FOLLOWING IS GENERATED OUT OF LINE 

DRDW +THEREA»THEREA+4 
DRDW -THEREB»THEREB+6 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 



00002 



00003 







+0003250339 




09 


0325 


+0003400344 


0325 


09 


0340 


+0003450352 


0340 


09 


0345 


+0003530355 


0345 


09 


0353 




0353 




0356 


+4600010325 






0357 


+6500010368 






0358 


+2300050337 






0359 


+2200050352 






0360 


+1300690337 






0361 


+2300090338 






0362 


-5000000206 






0363 


+2400050339 






0364 


+2200090354 






0365 


+1200090353 






0366 


+2300690339 






0367 


+2200030355 






0368 


+0003400344 






0369 


-0003450351 





MOVE Example 5 



A 75-character (150-digit) alphameric field is moved into three fields. 
The fields are each defined by subsequent entries of separate DAs and 
their total storage area is equal to 150 digits. However, the RDWs 
generated reserve an area of 160 digits. The possibility of invalid 
alpha combinations exists in digit positions 76, 79 of THEREB and in 
digit positions 24, 29 of THEREC since these segments are not affected 
by MOVE. 



LN 


COREF 


LABEL 


OP 


OPERAND 


01 


816 




# 




MOVE EXAMPLE 6 


02 


819 






DA 


1 


03 


820 




HEREA 




00.19A 


04 


821 






DA 


1 


05 


622 




HEREB 




00.29A 


06 


623 






DA 


1 


07 


824 




HEREC 




00i24A 


08 


625 




THERE 


DA 


1 


09 


826 








74 


10 


827 




* 






11 


628 




ANYLABEL 


MOVE 


HEREA»HERLb. HEREC TO THERE 


12 




X 


ANYLABEL 


X2A 


MACREG.l. THERE 


13 




X 




RG 


MACREG.l»M.l 


14 




X 




ZA2 


HEREC(20»24) 


15 




X 




ZST2 


THERE<70»74) 


16 


829 




# 






17 


830 




♦ 


THE FOLLOWING IS GENERATED OUT OF 


18 


631 




♦ 






19 




X 


M.l 


DRDW 


+HEREA»HEREA+1 


20 




X 


M.3 


DRDW 


+HEREBtHEREB+2 


21 




X 


M.5 


DRDW 


-HEREC.HEREC+1 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



00001 







+0003250326 




09 


0325 


+0003270329 


0325 


09 


0327 


+0003300332 


0327 


09 


0330 


+0003330340 


0330 


44 


0340 




0340 




0341 


+4600010333 






0342 


-6500010345 






0343 


+2300040332 






0344 


-2100040340 





00002 



0345 +0003250326 

0346 +0003270329 

0347 -0003300331 



MOVE Example 6 

Three automatic-decimal fields, each defined by a separate DA and with 
a total storage area of 75 digits, are moved to an area of equal size but 
with unspecified characteristics. 



LN 


CDREF 


LABEL 


OP 


OPERAND 


01 


835 


# 




MOVE EXAMPLE 7 


02 


836 




DA 


5»»0+INDEXW0RD 


03 


837 


HERE 




00.09A 


04 


838 




DA 


1 


05 


839 


THERE 




00.09A 


06 


840 


* 






07 


841 


ANYLABEL 


MOVE 


HERE TO THERE 


08 


X 


ANYLABEL 


ZA2 


HERE(0»9)+INDEXWORD 


09 


X 




ST2 


THEREI0.9) 


10 


842 


# 







7070 COMPILER SYSTEM VERSION OMYO81 CHANGE LEVEL 00001. PAGE AA 
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+0003250329 




09 


0325 

+0003300330 


0000 


09 


0330 


0330 



00001 



0331 +2301090000 

0332 +2200090330 



MOVE Example 7 



The MOVE statement references the label, of a subsequent entry under a 
DA that contains a relative address and implicit indexing. The contents 
of the HERE field of the current record (as determined by the contents 
of the implicit index word) will be moved to the THERE field. 



PAGE AA PROGRAM 

UN LABEL OP OPERAND 



01 



MOVE EXAMPLE 8 



02 




DA 


2,.0+INDEXWORD 


03 


HERE 




00»09A 


0* 




DA 


2..0+X15 


05 


THERE 




00il2A 


06 


• 






07 


ANYLABEL 


MOVE 


HERE TO THERE 


08 


ANYLABEL 


ZA2 


HER E ( . 9 ) + 1 NDEXWORD 


09 




ST2 


THERE(0.9)+X15 


10 




SL 


20 


11 




ST2 


THERE(10.12)+X15 



7070 COMPILER SYSTEM VERSION MASTR» CHANGE LEVEL 0028*. 

LOC INSTRUCTION REF.ADR PGDN CO NO 

846 

+0003250326 847 

0325 09 0000 848 

+0003270330 849 

0327 09 0000 850 

851 

852 

0331 +2301090000 GENRD 00001 

0332 +2215090000 GENRD 

0333 -5000000220 GENRD 

0334 +2215020001 GENRD 



MOVE Example 8 

The ten-digit HERE field of the current record is moved to the larger 
THERE field of the current record. The unoccupied portion of the 
THERE field will be filled with zeros and the sign will be made the same 
as the sign of the last word moved. 



LN CDREF LABEL 



01 8501 

02 8502 

03 8503 

04 S504 
03 8505 

06 8506 

07 8507 

08 8508 

09 8509 
10 

11 
12 
13 
14 
13 8510 

16 8511 

17 8512 
18 



HERE 

AA 

BB 

CC 

THERE 



ANYLABEL 
ANYLABEL 



MOVE 

X2A 

RS 

ZA2 

SL 

ST2 



OPERAND 

MOVE EXAMPLE 5 
1 

00f 15A 
20.25' 
26*32 
1 
42 

HERE TO THERE 

MACREG.l.HERE 

MACRE6.1.M.1 

THERE(39»39) 

20 

THERE<40.49) 



7070 COMPILER SYSTEM VERSION OMYO81 CHANGE LEVEL 00001. PAGE AA 



THE FOLLOWING IS GENERATED OUT OF LINE 
DRDW -THEREiTriERE+3 



CDNO FD LOC INSTRUCTION 



00001 



REF 







+0003250328 




09 


0325 




0325 


05 


0327 




0327 


69 


0327 


+0003290333 


0327 


22 


0333 




0333 




0334 


+4600010325 






0335 


+6500010339 






0336 


+2300990332 






0337 


-5000000220 






0338 


+2200090333 





0339 -0003290332 



MOVE Example 9 



The entire HERE field through digit position 39 is moved to the larger 
THERE field. The unoccupied portion of the THERE field (40, 49) will 
be filled with zeros and the sign will be made the same as the sign of 
the last word moved. In this example, the possibility of creating invalid 
alpha combinations does not exist since the sign of the word to which field 
BB and part of field CC are to be moved is determined by the sign of CC. 
Since the format of field CC is unspecified, the processor assumes the 
field contains numerical data to be treated as a signed integer. 



SHIFT -Shift and Store 



shift generates instructions to place the contents of a field into one or more ac- 
cumulators, to shift the data in a specified way, and to store the result. 

Source Program Format Th e basic format for the shift statement in the source program is as follows: 



Line 
3 5 


Label 
6 IS 


Operation 
16 20 


OPERAND Basic A 

21 25 30 35 40 45 50 [ 


1 , 


ANY LABEL, 


SHI FT 


0.PJ.I ,0,N, , START, ..CO.U, NT. F.I.E.LDA.FI ELDB j 


2 




, 


( 



anylabel is any symbolic label; it may be omitted. The entry shift must be writ- 
ten exactly as shown, option is one of the following one- or two-letter codes, 
specifying the type of shift to be executed: 

Type of Shift 



OPTION 

L 

R 

LC 

RR 

LS 

RS 



Left 

Right 

Left and Count 

Right and Round 

Left Split 

Right Split 



start is an integer indicating where to begin shifting in case of a split-shift op- 
tion; it is determined by counting from the left-most digit of the field, beginning 
with 1. (With other options, start will be blank, but the separating commas 
must be entered. ) With one exception, count is the actual number of positions to 
be shifted, restricted only by the size of the field. In the case of a shift-left-and- 
count option, however, count must be an index word, referenced either by its 
actual, two-digit number, without a preceding x, or by its symbolic name, which 
will contain in digit positions 4-5 the number of high-order zeros found in the 
shifted field, fielda is the symbolic address of the field to be shifted; it must be 
less than twenty-one digits in length, fieldb is the field in which the result is to 
be stored; it may also be referenced by its symbolic address. The sign of the field 
to be shifted is transmitted with the field and stored with the result in fieldb. 
The basic format may be modified by the omission of fieldb. In that case, the 
data will be restored in its original field after shifting. 

No warning is issued either in case of possible digit loss when the result of a 
shift is larger than fieldb or when invalid alpha combinations have been created. 



Processing Techniques 
Limitations on Length 



The number of parameters is fixed by the format. The field to be shifted is limited 
to twenty-digit length. 
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Address Modification 

Error and Warning 
Messages 



All symbolic addresses may be modified by indexing and address adjustment. 

The following error and warning messages will be issued during assembly under 
the conditions specified: 

COUNT GREATER THAN FIELD-SIZE 

The count field contains an integer larger than the number of digits in the field 
to be shifted. 

COUNT IS ZERO 

No shift will be carried out. The field will be stored without shifting. 

COUNT NOT AN INDEXWORD 

In a shift-left-and-count option, a label has been entered for count that is de- 
fined elsewhere as other than an index word. A nop will be generated. 

FIELD GREATER THAN 20 DIGITS 

An error condition, since fields to be shifted may not exceed this size. A nop 
will be generated. 

FIELD UNACCEPTABLE 

An attempt has been made to shift an alteration switch or some other entity 
that is not a part of storage. A nop will be generated. 

INCORRECT NUMBER OF PARAMETERS 

An attempt has been made to write more than five paiameters into the operand 
portion of a shift statement. Parameters in excess of the first five will be 
ignored. 

INCORRECT OPTION 

The option code is blank or is not one of those listed under "Source Program 
Format." 

shifting instruction 

The field to be shifted is an imperative instruction. Coding to accomplish this 
will be generated nevertheless. 

START GREATER THAN FIELD-SIZE 

The start counter in a split-shift option contains an integer larger than the 
number of digits in the field to be shifted. 



Examples 



The following are examples of acceptable coding for the shift macro-instruction. 
For each, the associated source-program entries are given, followed by the shift 
statement, coding generated in-line, and (where applicable) coding generated 
out-of-line. 
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PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001* PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


856 




# 




SHIFT EXAMPLE 


02 


857 






DA 


1 


03 


858 




FIELDA 




00»09 


0* 


859 




# 






05 


860 




ANYLABEL 


SHIFT 


L»*3»FIELDA 


06 




X 


ANYLABEL 


ZA2 


FIELDA(0»9) 


07 




X 




SL2 


3 


Ob 




X 




ST2 


FIELDA(0»9) 


09 


861 




* 







00001 



+0003250325 



09 0325 



0326 +2300090325 

0327 +5000002203 

0328 +2200090325 



0325 



SHIFT Example 1 

The contents of FIELDA are shifted left three positions and the result 
is stored again in FIELDA. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 

02 

03 
04 
OS 
06 
07 
Ob 
09 
10 
11 
12 



865 

866 
867 
868 
869 
870 
871 
872 



873 



COUNT 

FIELDA 

FlELDb 

ANYLABEL 
ANYLABEL 



OP OPERAND 

SHIFT EXAMPLE 2 
EQU 90*X 
DA 1 

00*09 
DA 1 

00*09 

SHIFT LC,*CQUNT*FIELDA*FIELDB 

ZA2 FIELDA(0»9) 

SLC2 COUNT 

ST2 FIELDB(0*9) 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



09 0325 



09 0326 



00001 



+0003250325 



+0003260326 



0327 +2300090325 

0328 +5000902300 

0329 +2200090326 



0325 
0326 



SHIFT Example 2 



The digits in FIELDA are shifted to the left until a digit other than a 
zero is in the high-order position. If the high-order digit is non-zero 
to start with, no shift takes place. The number of positions shifted is 
recorded in the index word labeled COUNT. 



PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001. PAGE AA 

CDNO FD LOC INSTRUCTION REF 



01 


874 




* 




SHIFT EXAMPLE 3 


QZ 


875 






DA 


1 


03 


876 




FIELDA 




00*14 


04 


877 




FIELDB 




20*34 


05 


878 




* 






06 


879 




ANYLABEL 


SHIFT 


RR**5*FIELDA»FI 


07 




X 


ANYLABEL 


2A1 


+ 


Oti 




X 




2A2 


FIELDA(0*9) 


09 




X 




SL 


5 


10 




X 




A2 


FIELDA(10»14) 


11 




X 




SRR 


5 


12 




X 




ST2 


FIELDB(10.14) 


13 




X 




SR 


5 


14 




X 




ST2 


FIEL0B(0.9) 


15 


880 




* 






16 


881 




* 


THE FOLLOWING IS GENERA 


1/ 


882 




* 














LITERALS 


ia 




X 






+ 



00001 



00002 







+0003250328 




09 


0325 




0325 


09 


0327 




0327 




0329 


+1300000337 






0330 


+2300090325 






0331 


-5000000205 






0332 


+2400040326 






0333 


-5000000105 






0334 


+2200040328 






0335 


-5000000005 






0336 


+2200090327 





00 0337 +0 



0337 



SHIFT Example 3 



The contents of FIELDA are shifted right 5 positions and the amount 
shifted is rounded off. The result is stored in FIELDB. 



PAGE AA PROGRAM 
LN CDREF LABEL 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 



885 
886 
887 
888 
889 
890 



FIELDA 
FIELDB 
* 

ANYLABEL 
ANYLABEL 



OP OPERAND 

SHIFT EXAMPLE 4 
DA 1 

00.19 
20*39 

SHIFT RS*12»8»FIELDA, FIELDB 



7070 COMPILER SYSTEM VERSION OMY08* CHANGE LEVEL 00001 • PAGE AA 

CDNO FD LOC INSTRUCTION REF 



891 



2A1 
ZA2 
SRS 
ST2 
STl 



FIELDA (0*9) 

FIELDA(10»19) 

8(11) 

FIELDB(10*19) 

FIELDB(0*9) 



00001 







+0003250328 




09 


0325 




0325 


09 


0327 




0327 




0329 


+1300090325 






0330 


+2300090326 






0331 


-5000001608 






0332 


+2200090328 






0333 


+1200090327 





SHIFT Example 4 



Starting with the 12th digit, the contents of FIELDA are shifted 8 positions 
to the right. The result is stored in FIELDB. 



SNAP — Memory Print-Out 



snap generates instructions to provide a listing of a specified portion of storage. 
Source Proa ram Format r ^ ie basic format for the snap statement in the source program is: 



Label 



Operation 



ANY LABEL, 



S,N,A,P, 



Basic Autocoder - 



Autocoder- 



F,R,0,M,A,D,D i R,,,T,0,A,D,D,R,.,OU,T,P,U,TU,N,l,T,,SK I, PS PR, I ,0,R. ,S,N APS, ,S,K,I PSA.FTER 



anylabel is any symbolic label; it may be omitted. The entry snap must be writ- 
ten exactly as shown, fromaddr and toaddr represent the limits of storage to be 
listed and may be symbolic or actual addresses, outputunit is the symbolic ad- 
dress of any tape channel and unit, punch, printer, or typewriter that has been 
defined by an equ statement elsewhere in the program, skipsprior, snaps, and 
skipsafter are unsigned, one- or two-digit integer counters, skipsprior controls 
the number of times the program will pass through the location of the snap state- 
ment without taking a print-out. snaps controls the number of times following this 
that print-outs will be taken, skipsafter controls the number of times that print- 
outs will again be omitted. Thereafter, control alternates between snaps and 
skipsafter for the duration of the program. 

The basic format may be modified by the omission of one or more of the three 
counters. If omitted, skipsprior will automatically be set equal to 0, snaps to 1, 
and skipsafter will cause permanent skipping once the specified number of snaps 
has been taken. If either skipsprior or snaps is omitted, or both, separating com- 
mas must be punched. 



Processing Techniques 
Limitations on Length 



The number of parameters is fixed by the basic format, subject only to the omis- 
sion of one or more counters. There is no limit to the amount of storage to be 
printed out, although approximately 150 locations of storage will be required by 
the calling sequence and the subroutine that constitute snap. Conceivably these 
may be positioned so as to fall between fromaddr and toaddr, in which case 
this area of storage will be shown as required by the snap instruction. The pro- 
grammer has control over the placement of the subroutine, however, by means of 
the LrroRiGiN statement. 



Address Modification 



All addresses may be modified by indexing; symbolic addresses may be modified 
by address adjustment. 



The Effect of SNAP 



The print-out provided by snap is non-destructive and will consist of the elec- 
tronic switches, the accumulators, index words 10 and 11, and storage between the 
limits specified. ( In the case of a type-out, only storage will be given. ) The stor- 
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age area specified must be contiguous. Index words 10 and 11 are used by snap; if 
they fall between fromaddr and toaddr, their representation in that section of 
the print-out will be that required by snap, not that given by the source program. 
For this reason, the source-program contents of these words are printed out ahead 
of the storage area. Before the exit from the snap subroutine, both index words 
are restored to their original contents. 

The output will be in the following format: 

First line: snap Electronic Switches, Instruction Counter at time of 

snap branch. 

Second line: Accumulators, Index Words 10 and 11. 

Each succeeding Five words of storage each, with the location of the first 
line: word printed on each line shown for identification purposes. 

Numerical words carry the proper sign. Alpha words are 
printed with an A in the sign position and contents in 
double-digit representation; this is done to avoid printer 
difficulty which might arise if an alpha location contained a 
double-digit combination that was not the code for any 
character. 

When tape output is specified, tape density must have been set previously by the 
program or the operator. No provision for tape labels, end-of-file conditions, or 
tape mark and rewind routines has been made in order to conserve space, and 
because it will often be desirable to use the same output tape for snap print-outs 
as that used for utility program output. 

When the snap routine is entered, the priority mask is set to "prohibit." On 
leaving the subroutine, the mask is set to "allow," regardless of its prior condition. 
If the programmer does not want the mask at "allow," he must restore it after 
each use of snap. 



Error and Warning The following error and warning messages will be issued during assembly under 

Messages the conditions specified: 

BLANK PARAMETER XX 

The xx of the message will be replaced by 01, 02, or 03, depending upon 
whether fromaddr, toaddr, or outputunit has been left blank. A nop will be 
generated. 

INVALID PARAMETER XX 

The xx will be replaced by 01 or 02 if fromaddr or toaddr, respectively, is not 
the label of a location of storage; by 03 if outputunit is not the label of one 
of the acceptable units listed under "Source Program Format." A nop will be 
generated. 

SNAPS COUNTER ZERO 

The snaps counter is zero, rendering the snap statement ineffective. A nop 
will be generated; this will at once be an aid to patching and a literal imple- 
mentation of the source statement as written. 

TOO MANY PARAMETERS. WDLL IGNORE 

More than six entries have been written into the operand portion of a snap 
statement. The first six will be accepted and coding generated accordingly. 
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If an error is encountered when attempting to write a record on tape, the tape is 
backspaced and the entire output area of 16 words is typed. Erroneous records 
will appear on the typewriter only and will not be duplicated on tape. If an error 
is encountered during a Unit Record Write, the erroneous record is typed as well 
as printed. 



Examples 



Each use of snap causes the generation of a calling sequence of four words. Any 
of its components may be addressed through reference to anylabel with ap- 
propriate address adjustment and field definition. A closed subroutine is gen- 
erated out-of-line once per segment. This routine, which is not shown here, 
occupies about 140 locations and performs the editing to create output records, 
issues the write commands, and controls the number of records written. On com- 
pletion of the print-out, the routine returns to the source program through an 
unconditional Branch to 0003 plus Index Word 94. The format of the calling 
sequence is as follows: 



Line 
3 5 


Label 

6 15 


Operation 
16 20 


OPERAND ( 

21 25 30 35 40 45 ) 


1 , 


ANYLA.BEL, , 


BLX, 


9.4..,S I N I A,P.0,0,1...A ) 


2 




DRD.W, 


+ F,R 1 0,M 1 A,D,D,R,, 1 T0,A,D,D,R, , . ,,,,,/ 


3 




uw, , , 


OU.TPU.TUNI T..SNAP.018 ,. A , , ) 


4 




DC, , , 




5 






+ XX,X,X.XX,X,X,X,X J 


6 




. , i i 


( 



The operand of the third instruction, uw, could also be ptw. The constant on line 
05 is composed of the following: 



Digit Positions 


Contents 


0,1 


The counter, skipsprior 


4,5 


The counter, snaps 


8,9 


The counter, skipsafter 


7 


1, if skipsafter is blank 



The following is an example of acceptable coding for the snap macro-instruction. 
The associated source-program entries are given, followed by the snap statement, 
coding generated in-line, and coding generated out-of-line. 
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PAGE AA PROGRAM 

LN CDREF LABEL OP OPERAND 



7070 COMPILER SYSTEM VERSION OMY08» CHANGE LEVEL 00001. 

CDNO FD LOC INSTRUCTION 



PAGE AA 
REF 



01 


S91 




* 




SNAP EXAMPLE 1 


Oi. 


S92 




SNAPOUTP 


EQU 


19, CU 


03 


893 




* 






04 


894 




ANYLABEL 


SNAP 


0t99tSNAPOUTP,l ,2,3 


05 




X 


ANYLABEL 


BLX 


94,SNAP001.A 


06 




X 




DROW 


+0«99 


07 




X 




PTW 


SNAPOUTP, SNAP018. A 


08 




X 




DC 




09 




X 






+0100020003 


10 


895 




* 






11 


896 




* T 


HE FOLLOWING IS GENERATED OUT OF LINE 


11 


897 




* 






13 




X 


SNAP002.A 


DA 


1 


14 




X 






49,49 


15 




X 




DA 


1 


16 




X 


SNAP015.A 




00,159 


17 




X 


SNAP016.A 


DRDW 


+SNAP015.A+2»SNAP015.A+3 


18 




X 




DRDW 


+SNAP015.A+5,SNAP015.A+6 


19 




X 




DRDW 


+SNAP015.A+8,SNAP015.A+9 


20 




X 




DRDW 


+SNAP015.A+11,SNAP015.A+12 


21 




X 




DRDW 


-SNAP015.A+14»SNAP015.A+15 


22 




X 


SNAP017.A 


DRDW 


-SNAP015.A+2»SNAP015.A+13 


23 




X 


SNAP016.A 


DRDW 


-SNAP015.A.SNAP015.A+15 


24 




X 


SNAP001.A 


PC 


+1111111111 


25 




X 




ZSTl 


SNAP002.A 


24 




X 


SNAP020.A 


ZA1 


2(8,9)+X94 LOAD SKIP CTR 


25 




X 




STDl 


2(0»1)+X94 


26 




X 




ZA1 


2(4»5)+X94 LOAD SNAP CTR 


27 




X 




BZl 


SNAP021.A+2 MAKE NOP IF SNAPCTR ZERO 


28 




X 




B 


SNAP001.A+4 


29 




X 


SNAP021.A 


ZA1 


2I7,7)+X94 SW7 TEST FOR SKIP 


30 




X 




BZ1 


SNAP020.A SETUP SKIPSAFTER CTR 


31 




X 




ZA1 


-0100000000 SETUP SKIPSAFTER FOREVER 


32 




X 




XS 


94,1 


33 




X 




ZSTl 


0+X94 


34 




X 




ZSTl 


1+X94 


35 




X 




ZSTl 


2+X94 


36 




X 




ZSTl 


3+X94 


37 




X 


SNAP022.A 


B 


SNAP009.A 










LITERALS 


36 




X 






+0000000000 


39 




X 






+0000000006 


40 




X 






+0000000012 


41 




X 






+1111111111 


42 




X 






-0100000000 


43 




X 






•SNAP • 


44 




X 






• + • 


45 




X 






i -i 


46 




X 






»A« 



00001 



09 



0325 +0200940357 

0326 +0000000099 

0327 +8100930356 
+0003280328 

0328 +0100020003 



+0003290333 
0333 

+0003340349 
0334 

0350 +0OO336033? 

0351 +0003390340 

0352 +0003420343 

0353 +0003450346 

0354 -0003480349 

0355 -0003360347 

0356 -0003340349 

0357 +5500000470 

0358 -1100090329 



0328 



0333 
0334 







0453 


+1394890002 








0454 


-1294010002 




00023 




0455 
0456 
0457 
0458 
0459 


+1394450002 
+1000090460 
+0100090361 
♦1394770002 
+1000090453 




00024 




0460 
0461 
0462 
046J 
0464 


+1300090471 
-4700940001 
-1194090000 
-1194090001 
-1194090002 




00025 




0465 
0466 


-1194090003 
+0100090440 






09 


0467 


+0000000000 


0467 




09 


0468 


+0000000006 


0468 




09 


0469 


+0000000012 


0469 


00026 


09 


0470 


+1111111111 


0470 




09 


0471 


-01OOOOOO00 


0471 


00027 


09 


0472 


•8275617700 


0472 




01 


0473 


•20 


0473 




23 


0473 


1 30 


0473 




45 


0473 


1 61 


0473 



SNAP Example 1 

A listing of the index word area of storage is desired on tape for two 
consecutive passes of the program through this area following the first 
pass through. Tape listings are then omitted for the next three passes. 
Control then alternates between producing the. two tape listings and 
causing the three skips for the duration of the program. 
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The Processor 



The Organization of 
the Processor 



The Autocoder processor performs functions such as assembly, compilation, and 
generation for the Autocoder portion of the ibm 7070/7074 Compiler Systems 
Tape. In addition to Autocoder, the Compiler Systems Tape contains the com- 
pilers for Fortran, the Report Program Generator, and Commercial Translator. 
The runs which perform these various functions for all of these compilers fall 
into two general categories: Compile Runs and Generator Runs. These runs are 
described in the 7070/7074 Data Processing System Bulletin "ibm 7070/7074 
Compiler Systems: Operating Procedure," form J28-6105. 

Compilation of a source-language program is performed by a Compile Run. The 
program is converted to machine language and shown on the output listing along 
with the original symbolic instructions, and then punched into a condensed pro- 
gram deck. A Generator Run compiles input statements which create a new 
macro generator and, if desired, enters the resultant program on a new systems 
tape. In addition, changes to the Compiler Systems Tape are processed during a 
Systems Run and an updated systems tape is produced. 

The operation which is used most frequently in Autocoder processing is that of 
compilation; this operation is performed by a Compile Run, as well as the com- 
pilation portion of a Generator Run. The function of the processor during com- 
pilation is discussed on the following pages. 

The Autocoder processor consists of the following major sections: 

Systems Control: This section of the processor exercises overall control over the 
compilation process and is principally charged with "housekeeping" functions. 

Phase I: This is the first phase in the conversion of the source program to an 
object program. Phase I scans the input statements of the source program and 
creates records which will constitute input to Phases II and III. 

Phase II: This is the second phase in the conversion of the source program to an 
object program; Phase II will not become active until Phase I has completed its 
role in processing. Phase II, in conjunction with the macro generators, compiles 
the macro-instructions of a program. 

Phase III: This is the third and last phase in the conversion of the source program 
to an object program; Phase III will not become active until Phase II has com- 
pleted its role in processing. Phase III assembles the final program on the basis 
of records received from Phases I and II. The output from Phase III consists 
of a machine-language program and a program listing. 

Autosort: Autosort is the portion of the processor which contains appropriate sort 
routines which are called when it is necessary for the processor to reorder its 
records for a pass. 

Macro Generators: The macro generators and function subroutines are contained 
on the Compiler Systems Tape and are made available when required to com- 
pile macro-instructions in Phase II. 

The functions of Systems Control and Phases I, II, and III during compilation 
and assembly will now be described in more detail. 
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Systems Control 



The chief responsibilities of Systems Control during compilation are as follows: 

1. To determine the type of run to be made. 

2. To check the validity of the operating options. 

3. To supervise the assignment and readiness of the various tape units. 

4. To locate and load the various coding blocks on the systems tape. 

5. To turn control over to the coding blocks at appropriate times to effect actual 
processing. 

In addition to these functions, Systems Control incorporates the desired modifi- 
cations, additions, or deletions to the system on a new Compiler Systems Tape 
when required by a Systems Run or a Generator Run. 

The Systems Control program consists of ten sections, called Communication 
Record, Systems Control 1-8 (syclI, sycl2, etc.), and Update. 



Communication Record 



The Communication Record consists entirely of data; it contains no instructions 
to be executed. The data includes the characteristics of the processor machine, 
the object machine, and the object program, as specified by the programmer 
through the use of Operating Option Control Cards. The Communication Record 
also includes various codes generated within the processor for communication be- 
tween coding blocks. 



Systems Control I (SYCLI) 



syclI loads the Communication Record and turns control over to sycl3. This 
section of Systems Control also contains the input/output routines and the Sys- 
tems Tape Control; both of these remain in storage throughout the compilation 
process. The Systems Tape Control locates, loads, and transfers control to the 
various coding blocks. 



Systems Control 2 (SYCL2) 



sycl2 is generally called only at the end of a Compile Run to identify halts and 
output tapes by messages on the console typewriter. In Multifile Runs, it tests 
for the presence of another program to be compiled and turns control over to 
sycl3 again if indicated. sycl2 may also be used to discontinue a run when the 
processor determines that this is necessary. 



Systems Control 3 (SYCL3) 



sycl3, the largest and most complex portion of Systems Control, initiates the 
desired run. It reads the various options into the Communication Record, does 
some validity checking of options, and may type error messages and even cause a 
halt. It opens the required input and work tapes and does whatever else is neces- 
sary in the way of "housekeeping" functions to prepare the type of run specified 
by the run Control Card. If this is an Autocoder Compile Run, Phase I is called. 



Systems Control 4-8 
(SYCL4-SYCL8) 



These sections, which provide for the mounting and dismounting of tapes, are 
always called by, and in turn will call, a routine other than a Systems Control 
routine. No two of these routines are identical, but they are quite similar and are 
included on the systems tape as one program section at five different points. Of 
these programs, only sycl6 is loaded during Compile Runs. 



Update 



Update is a program controlling changes to the systems tape; this program is not 
loaded during a Compile Run. 
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Phase I 



Phase I reads the source program from cards or tape. Each input statement is 
assigned a serial number, for internal use by the processor, to govern program 
order during assembly. Source program page and line numbers are retained and 
will reappear in the program listing, but they are not utilized during the assembly 
process. A program identification record is created from columns 76-80 of the 
first program card. This identification applies to the entire program to be com- 
piled, and columns 76-80 of all subsequent cards are ignored. 

As the input statements are scanned by Phase I, a certain amount of error check- 
ing is done, and, where necessary, error messages are issued which will ultimately 
appear in the program listing. In general, Phase I confines its validity checking 
to such major format violations as omission of operation codes or operands, mal- 
formation of the operand portions of macro-instructions, use of illegal characters, 
errors in field definition, use of unallowable address types, exceeding machine 
capacity, or exceeding the maximum permissible number of litorigin statements. 
If Phase I encounters an input statement which cannot be processed, it will 
usually retain as much of the statement that was scanned, or it will generate a 
nop. An error message will be issued. 

The chief function of Phase I is to furnish records to Phases II and III that will 
enable them to compile the finished program; this is done by analyzing the source 
program statements and by writing records for the label and operand entries. 
These "element" records contain pertinent information about the source program 
entry, such as its serial number, its operation code, and other attributes relevant 
to the processor. Output from Phase I consists of two files, File A and File B. 
File A, which contains all of the element records, goes directly to Phase III. File 
B, which contains all records that may be required for the compilation of macro- 
instructions, becomes input to Phase II. (Phase II will receive not only records 
derived from macro-instructions themselves, but also label records from all other 
instructions having symbolic labels, since these may be referenced by macro- 
instruction operands.) 

Input statements are scanned one at a time. When comments cards are en- 
countered, appropriate records are written onto File A for inclusion in the final 
program listing. Other source statements are classified according to their opera- 
tion code, which will be that of a declarative statement, a control statement, an 
imperative statement (either a symbolic machine instruction or a macro-instruc- 
tion), or blank. If the operation code does not fall into any of these categories, 
or if a blank operation code occurs on a card following one that does not permit 
continuations or subsequent entries, the code is converted to a nop, and an error 
message will appear for that line of the program listing. 

Phase I processes its input statements in three successive passes, each of which 
is processed by a separate coding block. These coding blocks contain the pro- 
grams that will process statements with the following operation codes, respec- 
tively: 



Pass 1 


Pass 2 


Pass 3 


First Coding Block 


Second Coding Block 


Third Coding Block 


Symbolic machine 


DA 


xreserve Control 


instructions 


CODE 


SRESERVE Control 


DRDW 


DC 


xrelease Control 


EQU 


DLINE 


srelease Control 


branch Control 


DSW 


DTF 


end Control 


origin Control 


DUF 




litorigin Control 


Macro-instructions 
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The first coding block is loaded into storage and the entire source program is 
scanned for the statements whose programs are contained on this block. These 
statements are processed at once; the others are written onto a temporary work 
tape. The second coding block is then loaded into storage. The work tape con- 
taining the statements which have not been processed is scanned. The statements 
whose programs are contained on the second coding block are processed; the 
remaining statements are again written onto a work tape. Finally, the third cod- 
ing block is loaded into storage and the remaining statements are processed. 
Thus, each of the three coding blocks needs to be loaded into storage but once. 

This procedure, of course, temporarily destroys source program (i.e., page and 
line) order, but this order will ultimately be restored by means of the internal 
serial number assigned to each statement. In addition, input statements are gen- 
erally taken apart, with separate records being written for the label and the one 
or more operand entries. These individual components of a given source state- 
ment are also numbered and provided with indicators that will permit eventual 
recomposition of the source statements. 

Phase II Phase II processes the records on File B in order to perform the compilation of 

macro-instructions. Its output, a series of records corresponding to symbolic 
machine instructions and declarative statements, is written on File A. 

The first step of Phase II is a sort of File B, which contains all label records of 
the declarative or imperative statements having symbolic labels; the records are 
grouped by symbolic name. 

The sort is followed by an Information Transfer pass. This pass provides addi- 
tional necessary information concerning the characteristics of fields occurring in 
the operands of macro-instructions; this is performed by transferring the char- 
acteristics shown in the label records into the macro-instruction operand records. 

At the conclusion of the Information Transfer pass, all records other than macro- 
instruction labels and operands are dropped from File B. The remaining records 
are sorted and grouped by macro-instruction operation code. Within this group- 
ing, the records are arranged according to their order of appearance in the pro- 
gram. This sorting avoids frequent reloading of the same macro generator since 
the processor will be able to operate successively on all appearances of each 
macro-instruction. 

The generating portion of Phase II is governed by a program called Phase II 
Control. This program determines which macro generator is required and calls 
the appropriate coding block from the library. While one generator is being 
executed, Systems Tape Control (see "Systems Control 1 (syclI)") positions the 
tape in anticipation of the next required generator. Phase II Control sets up cer- 
tain counters required by the generators, such as parameter counters and count- 
ers to record the number of previously generated labels. In addition, it causes the 
macro generator required to be loaded into storage, furnishes appropriate "par- 
ameter" records to it as a basis for analysis, and then turns control over to the 
generator itself. 

The parameter records are not quite identical to the element records written 
by Phase I and completed in the Information Transfer pass, but they are based 
on them. The parameter records need not contain the operation code or the 
serial number; this information is stripped from the element record and tempo- 
rarily stored elsewhere, to be attached again to output records. In general, the 
rest of the element record goes into the parameter record area unchanged, but 
some items that cannot be conveniently accommodated there, such as long alpha- 
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meric literals, the input texts of arith and logic statements, etc., are stored in a 
separate area, rdws defining their location are made available to the generator in 
the parameter record area. Records of address adjustment and indexing are 
not preserved as independent entities; the pertinent information is entered into 
the records of the parameters they modify. Since one macro-instruction is com- 
piled at a time, the parameter record area will, at any one time, contain only those 
records derived from a single macro-instruction. 

Generated output is not, strictly speaking, produced by the macro generators 
themselves, but by the gener subroutine, which is in storage during the entire 
generating portion of Phase II. The macro generators contain "model statements" 
which, together with the parameter records and certain indicators set by the gen- 
erator, serve as a guide for the construction of appropriate records by gener. 
These records, which are written onto File D, correspond to a sequence of sym- 
bolic machine instructions or macro-instructions that will accomplish the opera- 
tions indicated by the original macro statement. 

Certain Autocoder macro generators pass on portions of their work to other 
"lower-level" macro-instructions. For example, the logic macro-instruction often 
passes work on to the comp macro-instruction. In such cases, the generated output 
on File D will include both macro-instructions which require further compila- 
tion and symbolic machine instructions which do not. Therefore, after the gen- 
erating portion of Phase II, the temporary output file, File D, is edited into two 
further files. Symbolic machine instructions, declarative statements, and control 
statements are written onto File A as eventual input to Phase III; an editing 
program changes the format of these records into a format identical to that pro- 
duced by Phase I. The generated macro-instructions which require further com- 
pilation are edited to a format identical to that produced by Information Transfer. 
Since these records have already been augmented to include data characteristics, 
the records are re-entered at a point following the Information Transfer pass and 
beginning with the sort by macro-instruction operation code. 

When no further macro-instructions remain to be compiled, all Phase II output 
will have been edited and written onto File A; this file then goes to Phase III for 
assembly. 

At the start of Phase III all macro input statements have been reduced to sets of 
elementary Autocoder statements consisting of machine instructions, declaratives, 
and several types of comments records. The input to Phase III was written on 
File A by Phases I and II. After sorting these statements back into the order of 
the source program, the statements are assigned machine locations, the operands 
are replaced by their equivalent machine location values, and the individual 
machine instructions are built. These are shown on the output listing, along with 
the original symbolic instructions, and then packed into a condensed program 
deck. 
Phase III is organized into six passes and four sorts, as follows: 

1. Record Construction 

2. Sort Serial-Request File 

3. Serial Transfer 

4. Sort Statement File 

5. Assignment 

6. Sort Symbol File 
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7. Information Transfer 

8. Sort Operand File 

9. Output 
10. Message 

The Assignment pass is the central processing section of Phase III. Its primary 
function is to assign a machine location to each statement as it is encountered. 
The passes and sorts preceding the Assignment pass prepare the input for this 
pass. The succeeding passes and sorts handle the final preparation and editing 
of the output. 

The first pass, the Record Construction pass, writes two types of records. On 
one file, statement records are constructed from the element records written by 
Phases I and II. A statement record is written for each statement; it contains the 
label, operation code, one or two operands, field control, address adjustment, 
indexing, and remarks. On a second file, Record Construction creates the follow- 
ing request records: 

1. A Serial Record for each labeled statement (including equ statements). 

2. An Equate Request Record for each symbolic operand of each equ statement. 

3. An Index Assignment Request Record for each symbolic index word appear- 
ing either in the operand of an index word operation such as xl or xza, or as 
indexing. 

4. A Switch Assignment Request Record for each symbolic electronic switch 
appearing in the operand of an electronic switch operation such as bes or esn. 

5. An Implicit Indexing Request Record for each labeled da subsequent entry 
included under a da header line showing implicit indexing. 

6. An Origin Request Record for each symbolic nameone operand of an origin 
or LrroRiGiN statement. 

7. A Literal Request Record for each literal or adcon appearing in the operand 
of an instruction. 



Sort S jrial-Request File 



Serial Transfer 



The Serial Record and request records created by the Record Construction pass 
are sorted by symbolic name and, further, by the type code of each request 
record. This sort places the file in order so that all request records for each 
symbolic name are grouped together following the Serial Record, if one has been 
created. The literals and adcons will be sorted into two groups following the 
request records. These records will be in order by adcon name or by literal value. 

The Serial Transfer pass selects the request records to be added to the statement 
file created during the Record Construction pass; this statement file will be 
processed during the Assignment pass. 

Each Index Assignment Request Record and each Switch Assignment Request 
Record is read; the request record for each index word and electronic switch 
with the lowest card serial number (i.e., the record of the first occurrence of the 
symbolic name in the program) is passed on to the statement file. 

Serial Transfer retains a record of the card serial number of each Index Assign- 
ment Request Record it passes to the statement file. This number is transferred 
to the Implicit Indexing Request Record for each labeled da subsequent entry. 
These records are passed on to the statement file. 



234 



Equate Request Records have been created in the Record Construction pass foi 
the symbolic operands of equ statements. In addition, Serial Records have been 
created for the label of each equ statement. The Serial Transfer pass matches 
the Serial Records with their corresponding Equate Request Records. The card 
serial number from the Serial Record is added to the Equate Request Record; 
the Equate Request Records are then passed on to the statement file. 

Finally, the Serial Transfer pass processes the Literal Request Records. This 
pass essentially creates a dc for the complete set of literals and adcons. A dc 
subsequent entry, with either the literal value or the adcon as its operand, is 
created for each unique literal or adcon; duplicate references are read 
and dropped. 



Sort Statement File 



The complete statement file is now sorted by card serial number to give the 
Assignment pass a file in source program order. The request records have all 
been given card serial numbers and will be merged with their respective state- 
ments. Literals will have been numbered so that they fall last in each litorigin 
segment of the program. 



Assignment 



The Assignment pass assigns a machine location to each statement as it is en- 
countered. A statement might be a symbolic machine instruction which occupies 
one word of storage or it might be a declarative which occupies any amount of 
storage from part of one word to many words. The Assignment pass assigns a 
reference address to each statement regardless of the type; the reference address 
is composed of the address and field control of the part of the statement that 
occupies the first word of storage assigned to this statement. 

In addition to its function of assigning a reference address to each statement, 
the Assignment pass creates two types of records, Definition Records and Oper- 
and Records, which are placed in the Information Transfer file. Definition 
Records are created for each symbolic label encountered; the record contains 
the reference address which has been assigned to the labeled statement. Operand 
Records are created for each symbolic operand encountered. 

Symbolic index words and electronic switches create special cases; these symbols 
must be assigned machine addresses. The statement file sort has placed an Index 
Assignment Request Record following the instruction containing the first refer- 
ence to the symbolic index word; likewise, it has placed a Switch Assignment 
Request Record following the instruction containing the first reference to the 
symbolic electronic switch. These request records initiate the assignment of a 
machine location and the creation of a Definition Record to be placed in the 
Information Transfer file. 

Labels of da subsequent entries whose da header lines show implicit indexing 
also create special cases. Implicit Indexing Request Records, which were created 
by the Record Construction pass, have been placed following the appropriate 
Index Assignment Request Records. These request records initiate the creation 
of Definition Records which contain the implicit index value; the Definition 
Records are placed in the Information Transfer file. 

Another special case is equating one symbol to another symbol. An Equate 
Request Record has been placed following the statement with the same label 
as the equ statement operand. The request record initiates the creation of a 
Definition Record to be placed in the Information Transfer file. 

When origin and litorigin statements are encountered, the Assignment pass 
must be able to change the address assignment to continue from some previously 
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defined address. An Origin Request Record for the operand nameone will follow 
the statement with the same label as the nameone. It will cause an entry in a 
table containing values of addresses for reference by origin and litorigin 
statements. 



Sort Symbol File 



The Information Transfer file is sorted by symbolic name. Within each set of 
records for one symbol, Definition Records precede Operand Records. 



Information Transfer 



The Information Transfer pass will transfer the assigned value in each Defini- 
tion Record to each operand that refers to the defined symbol. Simultaneously, 
the pass will produce the Cross Reference Listing which will be written on the 
end of the statement file. 



Sort Operand File 



The Operand Records, with assigned values, will be sorted on the page and 
line number of the statement which contained the symbolic operand; the Oper- 
and Records will then be used as input to the Output pass. 



Output 



The Output pass will read each statement record and reconstruct the card image 
of the statement, i.e., label, operation code, and operand. The Operand Records 
that pertain to a statement will be read and the values substituted for symbols 
in the statement. The pass will construct the machine instructions which will 
be shown with the original symbolic instructions on the output listing; the 
machine instructions will be condensed into the output program deck. Any halt 
instructions that occur will be copied onto the Message file, which will also 
receive any Message Records that have been added to the statement file during 
the entire process. After the last statement has been processed, the Message pass 
will be called. 



Message 



This pass will first write the memory map, the index word and electronic switch 
availability tables, and the Cross Reference Listing from the end of the statement 
file onto the output listing. Next, a component listing from the end of the Oper- 
and Record file will be added to the output listing. The list of halt statements 
are then written, followed by the list of error messages. 



Output Listings 
Program Listing 



The Program Listing is prepared during the Output pass of Phase III. This 
listing contains the original symbolic instructions with the assembled machine 
instructions. A sample Program Listing is shown on the opposite page. The 
heading (1) of the Program Listing is "7070 compiler system version xxxxx, 
change level yyyyy." Appropriate substitutions for the version number and 
change level number are determined by the identification on the Compiler 
Systems Tape. A page number (2) appears twice on each page. The page 
numbers are assigned to each page of the listing by Phase III; the pages are 
numbered sequentially by a two-letter symbol (aa, ab, .... through zz). The 
program zzzzz (3) entry is the program identification record; if no identifica- 
tion is used, this entry will be blank. 

The listing on the left-hand portion of the page contains the original source- 
program entries as well as the symbolic machine instructions, drdws, literals, 
etc., that have been generated. The line number (4) is assigned by Phase III 
to each entry. The card reference number (5) is the page and line number 
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PAGE AA 



9 



PROGRAM ZZZZZ 






LN CDREF LABEL 



04 
05 
06 

7" 
f)b 
09 
10 

1 1 
12 
1 5 
1U 
15 
16 
17 

18 



655 

656 



657 
'658 
659 
660 
661 
662 
663 
66U 



66 5 
666 
667 



DRUWNAKE 
CRCWNAyE 



areanam: 

F1ELDA 
FItLDH 

fieli:c 

FIELDD 
* 

ANYLABEL 
ANYLABEL 



OP 



7 

dkuV 

CRDw 
DROW 

DA 



ZERO 
ZA2 
ST 02 



3, 



OPERAND- 



-® 



070 COMPILER SYSTEM VERSION XXXXX, CHANGE LEVEL YYYYY. PAGE AA 

CDNO F.D LOC INSTRUCTION RI REF 



ZERO EXAMPLE 5 
AREANAME 

+AREANAME,AREANAMt+2H 
-AREANAME + 25,AREA\AME + »+9 

2, ,0+INDEXWORD 

00,99»- 

100, 103A 

10U, 129A 

130.2U9A 

DRUIhNAME 

+ 

DRDWNAME (0,9) 



® ® 



OOOOl 



0325 +0003270351 

0326 -0003520376 



>\ 



-h 0003270376 



09 
03 
49 
09 



00002 



0327 
0337 
0337 
0340 



0377 + 2300000379 

0378 -2200090325 



0000 
0010 
0010 
0013 



fHt FuLLOrtINO IS GENERATED OUT OF LINE 

LIT ERALS 
+ 



00 0379+0 



01 
01 



00 0379 







assigned by the programmer to each source-program entry. The label (6), 
operation (7), and operand (8) columns contain the source-program entries 
and the generated statements. Any remarks originally contained in the operand 
of the input statements are printed on the listing. An x (9) preceding the label 
column of an entry indicates that the instruction has been generated. An 
apostrophe (10) appears in the listings throughout this manual and indicates 
the use of an @ character; the ' is equivalent to the @ character on the h type 
wheel configuration. 

The listing on the right-hand portion of the page contains the assembled machine 
instructions. The card number (11) is assigned by the Output pass of Phase III 
to each condensed card punched out. When the source statement specifies field 
definers for less than the full word, the field definition (12) is indicated. The 
location (13) is the machine location assigned to the instruction. The instruc- 
tion (14) is the actual assembled machine instruction. The relocation indi- 
cators (15) are two-digit numbers assigned each assembled instruction to 
indicate which part(s) of the instruction must be adjusted if relocation of all or 
part of the program is desired. The reference address (16) is either (a) the 
actual address assigned to literals or to da, dc, or dline subsequent entries, or 
(b) the relative address of da subsequent entries when a relative address is 
specified in the da header line. An m (17) following the reference address 
column indicates that an error or warning message is associated with that line. 



Origin Counter Listing 



An Origin Counter Listing follows the Program Listing. Each counter is listed 
in alphameric order; the initial value, last value, highest value, and lowest value 
for each counter follow. An example of an Origin Counter Listing appears on 
page 94. 



Availability Table 



An Availability Table follows the Origin Counter Listing. This table first lists 
the electronic switches which remain available for assignment; the index words 
which are available for assignment follow. If no index words or if no electronic 
switches remain, the word "none" appears in place of the list of switches or 
index words. 



Cross Reference Listing 



The Cross Reference Listing is prepared by the Information Transfer pass of 
Phase III. All symbolic labels, symbolic index words, symbolic switches, code 
fields, literals, and adcons are listed in alphameric order. Each of these entries 
is followed first by page, line, and actual location of all operand usages of 
that label. 



Component Assignment 
Listing 



Halt Listing 



Message Listing 



The Component Assignment Listing presents all of the electronic switch and 
index words used in the compiled program. The symbolic name(s), if any, 
assigned to each of these components is included in this listing. 

A Halt Listing follows the Component Assignment Listing. Each halt instruction 
occurring in the compiled program will be listed in the order in which it occurs 
in the program. The halt instructions in the fisting will appear in the same 
format as they appear in the Program Listing. 

The Message Listing is provided by the Message pass of Phase III; this listing 
immediately follows the Halt Listing. The actual message is printed, as well 
as the page and line number (referred to by (2) and (4) on the Program 
Listing) of the entry concerned. 



235 



Appendix A: Relationship of 7070/7074 Autocoder to Basic 

Autocoder and Four-Tape Autocoder 

The advanced programming capabilities of the 7070/7074 Autocoder system, as 
compared to the 7070/7074 Four-Tape Autocoder, are due to more powerful 
macro-instructions, extensive control operations over processing, and increased 
input/output options. To effect these improvements, distinct statement types 
and language specifications peculiar to Autocoder have been developed. How- 
ever, as in Four-Tape Autocoder, the new language characteristics are additions 
rather than changes to the 7070/7074 Basic Autocoder language. It is therefore 
possible for either of the more powerful systems to process any program that can 
be assembled with Basic Autocoder without modification. The converse is untrue 
since Basic Autocoder is not designed to process the advanced programming 
features provided in the larger systems. Similarly, since Autocoder and Four- 
Tape Autocoder each use a unique type of macro-instructions and other program- 
ming functions, neither is designed to process all programs which can be 
assembled by the other. 

If desired, the user may advance from Four-Tape Autocoder to the Autocoder 
system by using macro generators to duplicate the substitution-type macros used 
in a program, or by recoding the program so that macro-instructions provided 
with or added to the Autocoder system may be utilized. In order for a program 
coded in Four-Tape Autocoder to be fully compatible with the programming 
requirements of the Autocoder processor, certain additional changes in the 
coding and treatment of some programming functions must be made. These 
differences are outlined in Appendix B. 



Relationship of Autocoders 239 



Appendix B: 



Coding Sheet, Operand 
Address Types 



Index Words 



Electronic Switches 



DA — Define Area 



Differences Among 7070/707 r 4 Autocoder 
Systems 

The areas in which 7070/7074 Autocoder differs from 7070/7074 Basic Autocoder 
or 7070/7074 Four-Tape Autocoder are outlined below. 

Basic Autocoder. Columns 21-60. 

Four-Tape Autocoder and Autocoder. Columns 21-75. 

A blank address in a litorigin statement has the following significance: 

Basic Autocoder. Not to be used. 

Four-Tape Autocoder and Autocoder. Assignment continues at one beyond the 
highest location previously assigned, except for the locations assigned by the 
special "s" counter. 

The number of symbolic labels that can be used in a source program is as follows: 

Basic Autocoder. The number is limited by size of storage area available for 
the symbol table. 

Four-Tape Autocoder. The symbol table is written as a block on tape when the 
area in storage is filled. The number is limited only by the number of blocks 
that can be written on the symbol tape. 

Autocoder. There is no practical limit to the number of symbolic labels that 
can be used in a source program. 

Basic Autocoder and Four-Tape Autocoder. Once reserved, index words cannot 
be made available for reassignment later in the same program. 

Autocoder. Index words may be reserved by means of an xreserve statement. 
Index words which have been previously assigned by any method may be made 
available for later assignment by means of an xrelease statement. 

Basic Autocoder and Four-Tape Autocoder. Once reserved, electronic switches 
cannot be made available for reassignment later in the same program. 

Autocoder. Electronic switches may be reserved by means of an sreserve state- 
ment. Electronic switches which have been previously assigned by any method 
may be made available for later assignment by means of an srelease statement. 

A da header line has the following differences: 

Basic Autocoder and Four-Tape Autocoder, n may be from 1 to 999. The 
number of storage words that may be reserved for an area is a maximum of 999. 

Autocoder, n may be from 1 to 9999. The number of words that may be re- 
served is limited only by the size of the object machine. In addition, a symbolic 
or actual index word may be appended to the relative address to facilitate the 
writing of indexed instructions which reference fields in the defined area. 

The subsequent entries have the following differences: 

Basic Autocoder and Four-Tape Autocoder. These entries indicate the names of 
fields and the position of the field within the area only. A code entry is not 
permitted. 
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H£ Qgfing Cenctonf 



Autocoder. The format or characteristics of a field, i.e., numerical and an auto- 
matic-decimal number, numerical and a floating-decimal number, etc., may also 
be included following the indication of tire position of the field within the area. 
A code entry may be used. 

Basic Autocoder and Four-Tave Autocoder. Numerical constants mav contain 
a maximum of ten digits. In alphameric constants, the @ symbol may appear 
only if it immediately precedes the terminal @ symbol. The @ symbol may 
appear in remarks which are on the same line as an alphameric constant. An 
adcon cannot be modified by address adjustment. 

Autocoder. Numerical constants may be in standard floating-decimal format or 
in the form of automatic-decimal numbers of up to twenty digits in length. The 
@ symbol may appear anywhere within an alphameric constant. The @ symbol 
cannot be used in remarks which are on the same line as an alphameric constant. 



EQU — Equate 



Origin Control 



Litorigin Control 



Basic Autocoder and Four-Tape Autocoder. The symbolic address to which a 
symbolic name is being equated must have appeared as a label earlier in the 
sequence of program entries. A symbolic name cannot be equated to a digit value. 

Autocoder. A symbolic name may be made equivalent to a symbolic address 
which appears as the label for an entry anywhere in the source program. A 
symbolic name can be equated to a digit value. 

Basic Autocoder and Four-Tape Autocoder. The location assignment counter 
used by the processor may be set to the starting location specified in the operand 
of the origin statement. A blank operand signifies that the contents of the high 
assignment counter plus 1 is to be used by the processor. The letter "s" following 
an address in the operand orders the processor not to alter the high assignment 
counter during the processing of succeeding entries. If an origin statement does 
not appear before a location is assigned to the first source-language input entry, 
the processor will begin the assignment of storage locations at 0325. 

Autocoder. In addition to the automatic location assignment counter, over 250 
separate symbolic-location counters may be named by the programmer and used 
by the processor to control the placement of a program in storage. A blank 
operand in an origin statement indicates that the maximum value attained by any 
location counter, other than counter "s", is to be used for the assignment of sub- 
sequent locations. The assignment of storage locations will begin at an address 
specified in the Compiler Systems Tape if an origin entry does not appear before 
a location is assigned to the first source-language input entry in a program. 

Basic Autocoder. Normally, literals will be stored in locations immediately fol- 
lowing the highest location assigned to the source program. One litorigin state- 
ment, placed at the end of the source program deck or immediately preceding 
the end Control Card (if used) may be utilized to start the assignment of literals 
at the location specified in the operand rather than following the highest location 
used in the program. 

Four-Tape Autocoder. Library subroutines, as well as literals, may be stored 
in locations immediately following the highest location assigned to the source 
program. However, the litorigin statement may be used to insert these gen- 
erated subroutines into the program at the point where the litorigin entry 
appears. More than one such entry may be used in a program but each must be 
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followed by an origin statement unless the litorigin statement is either the last 
entry or is followed by an end Control operation. 

Autocoder. Same format as Autocoder origin statement. May be used to regulate 
the placement of materials generated out-of-line, i.e., implicit adcons, area 
definitions, etc., as well as literals. Up to 25 litorigin statements may be used 
in a program to cause the assignment of locations to all material generated up 
to the point at which another litorigin entry is encountered. Each phase of a 
multi-phase program may thus be loaded with its own literals, generated con- 
stants, etc. origin statements are not required following a litorigin entry. 



End Control 



Basic Autocoder and Four-Tape Autocoder. If an end statement is not used, the 
processor will generate an unconditional branch to location 0325. 

Autocoder. If an end statement is not used, or if used with a blank operand, the 
processor will generate an unconditional branch to the address specified in the 
Compiler Systems Tape. 



Macro-Instructions 



Basic Autocoder. Cannot process macro-instructions or dtfs per se. 

Four-Tape Autocoder. The 7070 Input/Output Control System macro-instructions 
may be used with the following restrictions: 

1. When using put macro-instructions with Four-Tape Autocoder, the name 
preceding in must be the name of either an rdw which defines one area or a 
tape input file. The use of a field name is not allowed unless the field name 
is the label of an rdw that defines the field. 

2. The name of a card input file may not be used in the put macro-instruction 
if the output file is a tape file. 

3. A record from a card input file may be included in a tape output file if the 
unit record area is defined by one rdw; the put would then be written using 
the name of the rdw; i.e., the name preceding the word in would be the 
same as the fourth item in the duf entry of the card input file. 

4. Only nine tape files may be named in the operand of an open or close macro. 

5. The symbolic names iocsixf, iocsixg, and iocsixh may not appear in the 
operand of the diocs statement. 

6. Any index words to be used in the diocs statement must be actual. These may 
later be equated to a symbolic name. 

7. Comments cards cannot be inserted between dtfs or among dtf subsequent 
entries. 

Other macro-instructions that can be used are substitution type— values in the 
operand of the macro in the source program are used to complete the labels, 
operation codes, etc. of a sequence of instructions contained in the Library 
portion of the Systems Tape. 

Autocoder. The 7070 Input/Output Control System macro-instructions can be 
used without the restrictions noted above. The additional macros that can be 
used with Autocoder are processed by macro generators and therefore differ 
from the substitution type of macro-instructions that can be used with Four-Tape 
Autocoder. 
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Appendix C: Reserved Index Words 



The Compiler Systems Tape will not allow assignment of symbolic names to 
certain index words. The address and special function of each of these index 
words are listed below. 



Address Function 

0093 Used by Autocoder and Fortran floating-decimal subroutines. 

0094 Used by Autocoder and Fortran normal subroutines. 

0095 Used by spool operations on Channel 2. 

0096 Used by spool operations on Channel 1. 

0097 Priority address word. 

0098 Table lookup indexing value and found address. 

0099 Address of priority final status word. 
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Appendix D: 



7070/7074 Operation Codes by 
Autocoder Mnemonics 



In the following list, the symbols in the operand column indicate what is per- 
missible in the operand and the order in which this information must be written 
on the coding form for each symbolic machine instruction. 

In all cases where an "a" has been indicated, a literal may also be used. The list, 
however, indicates a literal, "l," and also field definition, "f," only where it would 
seem to be of practical value. Caution is advised when using literals with opera- 
tion codes which do not specifically indicate them. 



Operand Symbol Key 



Symbol Meaning 



Type of Coding 



Range of Actual 



A 
AF 
B 
C 
CU 
D 
F 

I 
L 

N 



Q 

s 

SN 

sw 

X 



Address 

Arm and file 

Blank 

Channel number 

Channel and unit 

Digit 

Field Definition 

Unit record latch 

Literal 

Number 



Symbolic or actual 
Symbolic or actual 

Symbolic or actual 

Symbolic or actual 

Actual 

Actual ( Enclosed in 
parentheses ) 

A or 1, B or 2 
Actual 



Digit position Actual ( Enclosed in 

parentheses ) 

Inquiry synchronizer Symbolic or actual 

Unit record Symbolic or actual 

synchronizer 

Alteration switch 

Electronic switch 

Index Word 



Symbolic or actual 
Symbolic or actual 
Symbolic or actual 



Any storage location 
00-03, 10-13, 20-23 

1-4 

10-49 

0-9 

0-9 

1-2 



0-10 ( for normal shifts ) 
0-20 ( for coupled or split 

shifts) 
0-9999 (for index word 

codes) 

0-9 (for CD) 

0-19 (for split shifts) 

1-2 

14 

1-4 

1-30 

1-99 



Used as a separator and must be written on the coding sheet (unless 
the address which follows is blank). 

Used to indicate the word "or" (e.g., A/L means either an address or 
a literal). 

Used to indicate an accumulator number ( 1, 2, or 3, which must appear 
in place of the # symbol). 
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Alphabetic List of 7070/7074 Operation Codes by Autocoder Mnemonics 



Mnemonic 



Operation 



Operand 



A# Add to accumulator # A/L 

AA Add absolute to accumulator 1 A/L 

AAS# Add to absolute storage from accumulator # A 

AS# Add to storage from accumulator # A 

B Branch A 

BAL Branch if any stacking latch is ON A 

BAS Branch if alteration switch is ON SN,A 

BCB Branch if channel is busy C,A 

BCX Branch compared index word X,A 

BDL Branch if disk storage latch is ON AF,A 

BDX Branch decremented index word X,A 

BE Branch if equal A 

BES Branch if electronic switch is ON SW,A 

BFV Branch if field overflow A 

BH Branch if high A 

BIX Branch incremented index word X,A 

BL Branch if low A 

BLX Branch and load location in index word X,A 

BM# Branch if minus in accumulator # A 

BQL Branch if inquiry latch is ON Q,A 

BSC Branch if sign change A 

BSF Branch if electronic switch is ON and set OFF if ON SW,A 

BSN Branch if electronic switch is ON and set ON if OFF SW,A 

BTL Branch if tape latch is ON CU,A 

BUL Branch if unit record latch is ON I,A 

BV# Branch if overflow in accumulator # A 

BXM Branch if index word is minus X,A 

BXN Branch if indexing portion in index word is nonzero X,A 

BZ# Branch if zero in accumulator # A 

C# Compare accumulator # to storage A/L 

CA Compare absolute in accumulator 1 to absolute 

in storage A/L 

CD Compare storage to digit A(P),D 

CSA Compare sign to alpha A 

CSM Compare sign to minus A 

CSP Compare sign to plus A 

D Divide A/L 

DAR Disk storage arm release AF 

DLF Disk storage latch set OFF AF,A/B 

DLN Disk storage latch set ON AF,A/B 

DR Disk storage read C,A/L 

DW Disk storage write C,A/L 

EAN Edit alphameric to numerical X,A/L 

ENA Edit numerical to alphameric X,A/L 

ENB Edit numerical to alphameric with blank insertion X,A/L 

ENS Edit numerical to alphameric with sign control X,A/L 

ESF Electronic switch set OFF SW,A/B 

ESN Electronic switch set ON SW,A/B 

FA Floating add A/L 

FAA Floating add absolute A/L 

FAD Floating add double precision A/L 



F 
F 
F 
F 
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Mnemonic 


Operation 


Operand 


FADS 


Floating add double precision and suppress 






normalization 


A/L 


FBU 


Floating branch underflow 


A 


FBV 


Floating branch overflow 


A 


FD 


Floating divide 


A/L 


FDD 


Floating divide double precision 


A/L 


FM 


Floating multiply 


A/L 


FR 


Floating round 


A/B 


FS 


Floating subtract 


A/L 


FSA 


Floating subtract absolute 


A/L 


FZA 


Floating zero and add 


A/L 


HB 


Halt and branch 


A 


HMFV 


Halt mode for field overflow 


A/B 


HMSC 


Halt mode for sign change 


A/B 


HP 


Halt and proceed 


A/B 


LE 


Lookup equal only 


A/L F 


LEH 


Lookup equal or high 


A/L F 


LL 


Lookup lowest 


A/L F 


M 


Multiply 


A/L F 


MSA 


Make sign alpha 


A 


MSM 


Make sign minus 


A 


MSP 


Make sign plus 


A 


NOP 


No operation 


A/B 


PC 


Priority control 


A/L 


PDR 


Priority disk storage read 


C,A/L 


PDS 


Priority disk storage seek 


A 


PDW 


Priority disk storage write 


C,A/L 


PR 


Priority release 


A/B 


PTM 


Priority tape mark write 


CU 


PTR 


Priority tape read 


CU,A/L 


PTRR 


Priority tape read per record mark control 


CU,A/L 


PTSB 


Priority tape segment backspace 


CU,A/L 


PTSF 


Priority tape segment forward space 


CU,A/L 


PTSM 


Priority tape segment mark write 


CU 


PTW 


Priority tape write 


CU,A/L 


PTWC 


Priority tape write with zero elimination and 






per record mark control combined 


CIWL 


PTWR 


Priority tape write per record mark control 


CU,A/L 


PTWZ 


Priority tape write with zero elimination 


CU,A/L 


QLF 


Inquiry latch set OFF 


Q,A/B 


QLN 


Inquiry latch set ON 


Q,A/B 


QR 


Inquiry read 


Q,A/L 


QW 


Inquiry write 


Q,A/L 


RG 


Record gather 


X,A/L 


RS 


Record scatter 


X,A/L 


S# 


Subtract from accumulator # 


A/L F 


SA 


Subtract absolute from accumulator 1 


A/L F 


SL 


Shift left coupled 


N 


SL# 


Shift left accumulator # 


N 


SLC 


Shift left and count coupled 


X 


SLC# 


Shift left and count accumulator # 


X 


SLS 


Shift left split 


N(P) 


SMFV 


Sense mode for field overflow 


A/B 
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Mnemonic 



Operation 



Operand 



SMSC Sense mode for sign change A/B 

SR Shift right coupled N 

SR# Shift right accumulator # N 

SRR Shift right and round coupled N 

SRR# Shift right and round accumulator # N 

SRS Shift right split N(P) 

SS# Subtract accumulator # from storage A F 

ST# Store accumulator # A F 

STD# Store digits from accumulator # and ignore sign A F 

TEF Tape end of file turn OFF CU 

TLF Tape latch set OFF CU,A/B 

TLN Tape latch set ON GU,A/B 

TM Tape mark write CU 

TR Tape read CU,A/L 

TRB Tape record backspace CU 

TRR Tape read per record mark control CU,A/L 

TRU Tape rewind and unload CU 

TRW Tape rewind CU 

TSB Tape segment backspace CU,A/L 

TSEL Tape select CU 

TSF Tape segment forward space CU,A/L 

TSHD Tape set high density CU 

TSK Tape skip CU 

TSLD Tape set low density CU 

TSM Tape segment mark write CU 

TW Tape write CU,A/L 

TWC Tape write with zero elimination and per record 

mark control combined CU,A/L 

TWR Tape write per record mark control CU,A/L 

TWZ Tape write with zero elimination CU,A/L 

TYP Type A/L 

ULF Unit record latch set OFF I,A/B 

ULN Unit record latch set ON I,A/B 

UP Unit record punch S,A/L 

UPIV Unit record punch invalid S,A/L 

UR Unit record read S,A/L 

US Unit record signal S,A/B 

UW Unit record write S,A/L 

UWIV Unit record write invalid S,A/L 

XA Index word add to indexing portion X,A/N 

XL Index word load X,A/L 

XLIN Index word load and interchange X,A/L 

XS Index word subtract from indexing portion X,A/N 

XSN Index word set nonindexing portion X,A/N 

XU Index word unload X,A 

XZA Index word zero and add to indexing portion X,A/N 

XZS Index word zero and subtract from indexing portion X,A/N 

ZA# Zero accumulator # and add A/L F 

ZAA Zero accumulator 1 and add absolute A/L F 

ZS# Zero accumulator # and subtract A/L F 

ZSA Zero accumulator 1 and subtract absolute A/L F 

ZST# Zero storage and store accumulator # A F 
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List of 7070/7074 Operation Codes by Function 



Mnemonic 


Operation 


Operand 




TAPE OPERATIONS 




TR 


Tape read 


CU,A/L 


PTR 


Priority tape read 


CU,A/L 


TRR 


Tape read per record mark control 


CU,A/L 


PTRR 


Priority tape read per record mark control 


CU,A/L 


TW 


Tape write 


CU,A/L 


PTW 


Priority tape write 


CU,A/L 


TWR 


Tape write per record mark control 


CU,A/L 


PTWR 


Priority tape write per record mark control 


CU,A/L 


TWZ 


Tape write with zero elimination 


CU,A/L 


PTWZ 


Priority tape write with zero elimination 


CU,A/L 


TWC 


Tape write with zero elimination and per record 
mark control combined 


CU,A/L 


PTWC 


Priority tape write with zero elimination and per 






record mark control combined 


CU,A/L 


TSB 


Tape segment backspace 


CU,A/L 


PTSB 


Priority tape segment backspace 


CU,A/L 


TSF 


Tape segment forward space 


CU,A/L 


PTSF 


Priority tape segment forward space 


CU,A/L 


TSEL 


Tape select 


CU 


TRB 


Tape record backspace 


CU 


TRW 


Tape rewind 


CU 


TRU 


Tape rewind and unload 


CU 


PTM 


Priority tape mark write 


CU 


TM 


Tape mark write 


CU 


PTSM 


Priority tape segment mark write 


CU 


TSM 


Tape segment mark write 


CU 


TEF 


Tape end of file turn OFF 


CU 


TSHD 


Tape set high density 


CU 


TSLD 


Tape set low density 


CU 


TSK 


Tape skip 


CU 


TLN 


Tape latch set ON 


CU,A/B 


TLF 


Tape latch set OFF 


CU,A/B 


BTL 


Branch if tape latch is ON 

DISK STORAGE OPERATIONS 


CU,A 


PDS 


Priority disk storage seek 


A 


DR 


Disk storage read 


C,A/L 


PDR 


Priority disk storage read 


C,A/L 


DW 


Disk storage write 


C,A/L 


PDW 


Priority disk storage write 


C,A/L 


DAR 


Disk storage arm release 


AF 


DLN 


Disk storage latch set ON 


AF,A/B 


DLF 


Disk storage latch set OFF 


AF,A/B 


BDL 


Branch if disk storage latch is ON 

UNIT RECORD OPERATIONS 


AF,A 


UR 


Unit record read 


S,A/L 


UP 


Unit record punch 


S,A/L 


UW 


Unit record write 


S,A/L 


UPIV 


Unit record punch invalid 


S,A/L 


UWIV 


Unit record write invalid 


S,A/L 
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Mnemonic 



Operation 



Operand 



US Unit record signal 

ULN Unit record latch set ON 

ULF Unit record latch set OFF 

BUL Branch if unit record latch is ON 

INQUIRY OPERATIONS 

QR Inquiry read 

QW Inquiry write 

QLN Inquiry latch set ON 

QLF Inquiry latch set OFF 

BQL Branch if inquiry latch is ON 

CONSOLE TYPEWRITER OPERATIONS 

TYP Type 

ARITHMETIC OPERATIONS 

A# Add to accumulator # 

ZA# Zero accumulator # and add 

AA Add absolute to accumulator 1 

ZAA Zero accumulator 1 and add absolute 

AS# Add to storage from accumulator # 

AAS# Add to absolute storage from accumulator # 

S# Subtract from accumulator # 

ZS# Zero accumulator # and subtract 

SA Subtract absolute from accumulator 1 

ZSA Zero accumulator 1 and subtract absolute 

SS# Subtract accumulator # from storage 

M Multiply 

D Divide 

SHIFTING OPERATIONS 

SR# Shift right accumulator # 

SRR# Shift right and round accumulator # 

SL# Shift left accumulator # 

SLC# Shift left and count accumulator # 

SR Shift right coupled 

SRR Shift right and round coupled 

SL Shift left coupled 

SLC Shift left and count coupled 

SRS Shift right split 

SLS Shift left split 

INDEX WORD OPERATIONS 

XL Index word load 

XLIN Index word load and interchange 

XU Index word unload 

XA Index word add to indexing portion 

XZA Index word zero and add to indexing portion 

XS Index word subtract from indexing portion 

XZS Index word zero and subtract from indexing portion 

XSN Index word set nonindexing portion 

BLX Branch and load location in index word 



S,A/B 
I,A/B 
I,A/B 
U 



Q,A/L 
Q,A/L 
Q,A/B 
Q,A/B 
Q,A 



A/L 



A/L 


F 


A/L 


F 


A/L 


F 


A/L 


F 


A 


F 


A 


F 


A/L 


F 


A/L 


F 


A/L 


F 


A/L 


F 


A 


F 


A/L 


F 


A/L 


F 


N 




N 




N 




X 




N 




N 




N 




X 




N(P) 




N(P) 




X,A/L 




X,A/L 




X,A 




X,A/N 




X,A/N 




X,A/N 




X,A/N 




X,A/N 




X,A 
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Mnemonic 


Operation 


Operand 


BXM 


Branch if index word is minus 


X,A 


BXN 


Branch if indexing portion in index word is nonzero 


X,A 


BCX 


Branch compared index word 


X,A 


BIX 


Branch incremented index word 


X,A 


BDX 


Branch decremented index word 

SWITCH OPERATIONS 


X,A 


BAS 


Branch if alteration switch is ON 


SN,A 


BES 


Branch if electronic switch is ON 


SW,A 


BSF 


Branch if electronic switch is ON and set OFF if ON 


SW,A 


BSN 


Branch if electronic switch is ON and set ON if OFF 


SW,A 


HMFV 


Halt mode for field overflow 


A/B 


HMSC 


Halt mode for sign change 


A/B 


SMFV 


Sense mode for field overflow 


A/B 


SMSC 


Sense mode for sign change 


A/B 


ESN 


Electronic switch set ON 


SW,A/B 


ESF 


Electronic switch set OFF 

DATA MOVEMENT OPERATIONS 


SW,A/B 


RG 


Record gather 


X.A/L 


RS 


Record scatter 


X,A/L 


EAN 


Edit alphameric to numerical 


X,A/L 


ENA 


Edit numerical to alphameric 


X.A/L 


ENB 


Edit numerical to alphameric with blank insertion 


X.A/L- 


ENS 


Edit numerical to alphameric with sign control 

LOGIC OPERATIONS 


X,A/L 


BM# 


Branch if minus in accumulator # 


A 


BZ# 


Branch if zero in accumulator # 


A 


BV# 


Branch if overflow in accumulator # 


A 


BFV 


Branch if field overflow 


A 


BSC 


Branch if sign change 


A 


BH 


Branch if high 


A 


BE 


Branch if equal 


A 


BL 


Branch if low 


A 


BCB 


Branch if channel is busy 


C,A 


BAL 


Branch if any stacking latch is ON 


A 


C# 


Compare accumulator # to storage 


A/L F 


CA 


Compare absolute in accumulator 1 to absolute 






in storage 


A/L F 


CD 


Compare storage to digit 


A P ,D 


CSA 


Compare sign to alpha 


A 


CSP 


Compare sign to plus 


A 


CSM 


Compare sign to minus 

MISCELLANEOUS OPERATIONS 


A 


B 


Branch 


A 


HB 


Halt and branch 


A 


HP 


Halt and proceed 


A/B 


LE 


Lookup equal only 


A/L F 


LL 


Lookup lowest 


A/L F 


LEH 


Lookup equal or high 


A/L F 


MSA 


Make sign alpha 


A 
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Mnemonic 



Operation 



Operand 



MSP Make sign plus A 

MSM Make sign minus A 

NOP No operation A/B 

PC Priority control A/L 

PR Priority release A/B 

ST# Store accumulator # A 

STD# Store digits from accumulator # and ignore sign A 

ZST# Zero storage and store accumulator # A 

FLOATING POINT OPERATIONS 

FA Floating add A/L 

FZA Floating zero and add A/L 

FAA Floating add absolute A/L 

FAD Floating add double precision A/L 

FADS Floating add double precision and suppress 

normalization A/L 

FS Floating subtract A/L 

FSA Floating subtract absolute A/L 

FM Floating multiply A/L 

FD Floating divide A/L 

FDD Floating divide double precision A/L 

FR Floating round A/B 

FBV Floating branch overflow A 

FBU Floating branch underflow A 



F 

F 
F 



Operation Codes by Function 251 



Appendix E: 



Note on Optional Characters 



In certain cases, special characters used on ibm printers and other equipment 
have optional equivalents. In each case the character must be punched accord- 
ing to the card code, regardless of which option has been chosen for printing on 
the printer in a given installation. 

The special characters which have been used in this manual and their optional 
equivalents for each type wheel configuration available are given in the following 
table. 



Character 

Used in 

This Manual 


IBM 
Card 
Code 


Type Wheel Configuration 


A 


B 


C | D | E | F 1 G 


H 


K 


( 


0-8-4 


% 


% 


% % : % ( % 


( 


( 


) and U 


12-8-4 


n 


n 


n 


n 


< ) n 


) 


) 


@ 


8-4 


@ 


@ 


® 


@ 


> 


— 


— 


» 


@ 


+ 


12 


& 


/ 


& 


— 


— 


+ 


+ 


+ 


+ 


= 


8-3 


# 


# 


# 


# 


# 


= 


+ 


= 


= 


/ 


0-1 


l 


& 





/ 


& 


/ 


/ 


/ 


/ 
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Appendix F: Glossary 



ACTUAL ADDRESS 



The word "actual" usually refers to machine language. An actual address is 
the same as an absolute or machine address. 



ADDRESS ADJUSTMENT 

Address adjustment refers to the procedure of changing an address at process 
time by means of an increment or decrement placed after the named address, 
i.e., name + 26. 



ADDRESS CONSTANT (aDCOn) 

An adcon is a numerical literal created by entering ± anylabel ( a symbolic 
address written elsewhere in the program) in the operand of an instruction. 
The actual address assigned to anylabel and the sign of the adcon entry be- 
come the address constant. 



ALPHAMERIC 

A term which refers to symbols that are numerical digits, alphabetic charac- 
ters, or special characters. 

ASSEMBLY PROGRAM 

A translation program which substitutes machine-language instructions for 
symbolic instructions, assigns storage locations, and performs other activities 
necessary to produce the final object program. 

7070/7074 autocoder 

Autocoder is a symbolic programming system consisting of a symbolic language 
and a processor; this system is designed for use in installations which have a 
minimum of six 729 Model IV (or Model II) tape units and a machine with 
5,000 words of core storage. The language consists of symbolic machine in- 
structions and generator-type macro-instructions; the processor converts a 
program written in this language to machine language. 

7070/7074 basic autocoder 

Basic Autocoder is a symbolic programming system consisting of a symbolic 
language and a processor; this system is designed for use in installations which 
have a minimum of one D3M 7500 Card Reader, one D3M 7550 Card Punch, and 
a machine with 5,000 words of core storage. The language consists of symbolic 
machine instructions; the processor converts a program written in this language 
to machine language. 

BRANCH CONSTANT 

A branch constant is an instruction which is used to provide the address of a 
field to a subroutine; it is interrogated by the subroutine but it is never exe- 
cuted. 
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COLLATING SEQUENCE 

The relative order of precedence which a computer assigns to the numbers, 
letters, and special characters for compare operations. 



COMPILE 



To produce a machine-language routine from a routine written in non-machine 
language. See also: compiler. 



compiler 

A compiler is a complex program in which several different functions are per- 
formed. It typically includes the following: 

1. Extensive program analysis during which information is collected or tabu- 
lated for later recombination. 

2. Generation of instructions by synthesis of tabulated information and use 
of skeleton or model routines. 

3. Translation of symbolic instructions into machine language. 

A compiler is itself a routine, not a machine— although a machine could be 
built to do compiling. 

7070/7074 compiler systems tape 

This tape combines and links 7070/7074 Autocoder, 7070 Fortran, and the 
7070/7074 Report Program Generator, permitting the use of these compilers 
with a minimum of effort and a maximum of efficiency. 



condensed card format 

This is a format for placing several machine language instructions on a single 
card along with information sufficient to load the instructions into their proper 
storage locations. 



CONTROL CARD 

A card which contains the parameters required to set up a generalized pro- 
gram for one particular application. 



debugging 

The process of locating errors in a computer routine and correcting them. 

expression 

An element of the source language where a combination of several names and 
operators may be used, as well as a single name or address. 

field definer(s) 

A number placed after an address to indicate the particular digit(s) in a word 
which are occupied by a field. 



254 



FIELD DEFINITION 



Indication of the starting and ending positions of a field within a word, or 
the starting and ending positions of a part of a field relative to the field itself; 
for example, symbol(6,9). 



7070 FORTRAN 

Fortran is a symbolic programming system consisting of a symbolic language 
and a processor. The language, which closely resembles the language of mathe- 
matics, is essentially problem-oriented rather than machine-oriented. The 
processor converts a program written in this language to 7070/7074 Auto- 
coder language. The Autocoder program is converted to a machine-language 
object program for a 7070 or a 7074 by the Autocoder processor. Other ibm 
Data Processing Systems are equipped with processors which convert programs 
coded in the Fortran language to their respective machine-oriented languages. 



7070/7074 four-tape autocoder 

Four-Tape Autocoder is a symbolic programming system consisting of a sym- 
bolic language and a processor; this system is designed for use in installations 
which have a minimum of four 729 Model IV (or Model II) tape units and a 
machine with 5,000 words of core storage. The language consists of symbolic 
machine instructions and substitution-type macro-instructions; the processor 
converts a program written in this language to machine language. 



generator 

A program which accepts input parameters and uses them to modify skeleton 
instructions or skeleton routines to produce the desired output routine. A 
small number of parameters are capable of producing a large number of out- 
put instructions. 

indexing 

Refers to the procedure of changing an address, at object time, according to 
the contents of the indexing portion of a specified index word. 



instruction 

An instruction is generally a single entry in symbolic machine language or in 
machine language, as opposed to a statement, or macro-instruction, which 
usually means a language entry that can produce many machine-language en- 
tries. 



LITERAL 

A literal is the actual data to be operated on by an instruction, as distinguished 
from the location or address of the data. 



MACHINE LANGUAGE 

A language in which the instructions are in a form which may be executed by 
the computer without translation. 
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MACRO GENERATOR 



A macro generator, an abbreviation of macro-instruction generator, is that part 
of Autocoder which processes macro statement entries. It generates a sequence 
of symbolic machine instructions which, collectively, perform the operation 
specified by the macro-instruction entry. Each macro generator is associated 
with a given macro statement and processes all occurrences of that macro state- 
ment in a program. 



MACRO-INSTRUCTION 



A symbolically coded instruction resulting in a group of machine-language in- 
structions which will perform a desired operation. 



MNEMONIC 



"Mnemonic" means "aiding memory." The term is used to describe operation 
codes which are written in a symbolic notation to make them easier to remem- 
ber than the actual operation codes. 



NUMERICAL 



In the 7070 or the 7074, numerical refers to either a field with a plus or minus 
sign rather than an alpha sign or to data which is to be treated as numbers, 
whether in single-digit or double-digit form. 

OBJECT MACHINE 

The machine on which an object program is to be run. See: processor machine. 

OBJECT PROGRAM 

The output from a processor. In this case, a 7070/7074 machine-language 
program assembled from a source program coded in symbolic language. 

OBJECT TIME 

The time at which the object program is being run. This is opposed to process 
time, the time at which a compiler, such as Autocoder, is being run. 

OFF-LINE 

Operation of input/output and other devices not under direct computer con- 
trol. Most commonly used to designate the transfer of information between 
magnetic tapes and other input/output media. 

ON-LINE 

Operation of an input/output device as a component of the computer, under 
programmed control. 

OPERAND 

The operand is the factor or data acted upon during an operation; it may be 
a result, a parameter, or an indication of the location of the next instruction. 
Also, the entire field beginning in column 21 of the Autocoder source card and 
coding sheet is considered to be the operand. 
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OPERATION CODE 



The operation code designates the machine function to be performed. Dis- 
tinction is sometimes made between a "mnemonic operation code," such as 
zaI, and its equivalent "machine operation code," +13. 



OPERATOR 

The term operator usually refers to such characters as + , — , = , which are 
said to "operate" on quantities. 

PARAMETER 

A factor which is left unspecified and to which the user may assign a value. 

PROCESS TIME 

The time at which the source program is being changed into an object pro- 
gram by a compiler, such as Autocoder. This is opposed to object time, the 
time at which the object program is being run. 

PROCESSOR 

A program which performs the functions of assembly, compilation, generation, 
or any similar functions to convert a source program into the desired object 
program. 

PROCESSOR MACHINE 

The machine on which a processor is to be run. 

PROGRAMMING SYSTEM 

A programming system is any method of programming problems other than 
machine language, such as Autocoder. A system consists of a language and 
its associated processor(s). 



REPORT 

A printed document which presents data arranged in an orderly manner for 
ease of reference. 



REPORT GENERATION 

A technique for producing complete reports given the content and format of 
the input file and the desired content and format of the output reports. 

7070/7074 report program generator 

The 7070/7074 Report Program Generator consists of coding forms and a 
compiler. The format of the input file and the specifications for the output 
report are placed on the coding sheets which are then punched into cards and 
used as input for the compiler. The system produces a program in 7070/7074 
Autocoder language which is converted to a machine-language object program 
for a 7070 or a 7074 by the Autocoder processor. 
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SORT 

To place a file of records in order according to a specified sequence. 



SOURCE LANGUAGE 



The language in which a program is coded, e.g., the 7070/7074 Autocoder 
language. 



SOURCE PROGRAM 



The original coding of a program, usually coding in a language other than 
machine language. 



SPECIAL CHARACTER 



One of a set of special symbols. Some common special characters are: 



STATEMENT 



Usually a source-language entry on the coding sheet, especially a line which 
might eventually produce several machine-language instructions, such as the 
ARiTH statement or the get statement. 



STORAGE 



Any medium into which data may be transferred and where it may be re- 
tained for later use. 



subroutine 



A subroutine is usually a series of instructions to perform some specific mathe- 
matical or logical operation. Subroutines are entered by a Branch instruction, 
as opposed to macro-instructions which are normally entered sequentially. 

SYMBOL 

In Autocoder, symbol is used to refer to a name used instead of a machine 
address. Thus "symbolic address," "symbolic name," or "symbolic label," 
conveys that one is not specifying machine addresses. 

SYMBOLIC ADDRESS 

An alphameric name used in place of an actual machine address. 

SYMBOLIC LANGUAGE 

A symbolic language is a collection of mnemonic symbols with rules of usage, 
such as Autocoder; the symbols are used in programming to represent opera- 
tion codes, functions, and/or addresses. Symbolic-language coding must be 
translated into machine language to be used by the computer. 

SYMBOLIC MACHINE LANGUAGE 

Symbolic machine language is a language which is similar to machine language 
except for symbolic addresses and mnemonic operation codes. Symbolic ma- 
chine instructions are sometimes referred to as "one-for-one" instructions since 
each instruction encountered in a source program will cause the corresponding 
machine language instruction to be inserted in the object program. 
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Appendix G: Illustration of Autocoder Programming 



Input Statements 



The listing on the following page contains the input statements of a sample pay- 
roll problem. The purpose of this problem is to illustrate coding with 7070/7074 
Autocoder, including the use of input/output statements and macro-instructions. 

da statements define the formats of the input, output, and detail files, the file 
from which checks will be printed, and temporary storage fields. A dline state- 
ment describes the check format. An error message and a space for the insertion 
of an identification number are provided under a dc statement, for use if the 
desired record fails to appear in the master file. The processing routine follows 
the declarative statements in the listing. 



Generated Coding 



The listings which follow contain coding generated from the previously described 
input statements. This listing is incomplete; the dtf entries, diocs entries, and 
the major portion of the generated input/output instructions have been omitted. 



Sample Program 259 



AF01 

AF02 

AF03 

AF04 

AF05 

AF06 

AF07 

AF07A 

AF08 

AF09 

AFIO 

AF11 

AF12 

AF13 

AF14 

AF15 

AF16 

AF17 

AF18 

AF19 

AF20 

AF21 

AF22 

AF23 

AF24 

AF25 

AF26 

AGO! 

AG02 

AG03 

AG04 

AG05 

AG06 

AG07 

AG08 

AG09 

AGIO 

AG11 

AG12 

AG13 

AG14 

AG15 

AG16 

AG17 

AG18 

AG19 

AG20 

AG21 

AG22 

AG2 3 

AG24 

AG2 5 

AHOl 

AH02 

AH03 

AH04 

AH05 

AH06 

AH07 

AH08 

AH08A 

AH09 

AHIO 

AH11 

AH12 

AH13 

AH14 

AH15 

AH16 

AH17 

AH18 

AH19 

AH20 

AH21 

AH22 

AH23 

AH24 

AH25 

AIOl 

AI02 

AI03 

AI04 

AI05 

AI06 



IMASTER 

IMANNUMBER 

I NAME 

1DEPENDNTS 

IPAYRATE 

ICOMISRATE 

IYTDPAY 

IYTDFICA 



MASTEROUT 



DETAIL 
DMANNUMBER 
DHOURS 
OSALES 



CHECKLINE 
CMANNUMBER 
CNAME 
CNETPAY 

» 
CHECKTAPE 



WORKAREA 

GROSSPAY 

TAX 

FICA 

TFICA 

NETPAY 

» 
ERMESSAGE 

ERRORNO 



AN ILLUSTRATION OF AUTOCODER PROGRAMMING 

DESCRIPTION OF THE INPUT MASTER FILE 
DA 10»RDW.O+IMASTERX 

00.09A10 

10.39' 

40.41A2 

42.46A2.3 

47.49A.3 

50.56A5.2 

65.69A3.2 

DESCRIPTION OF THE OUTPUT MASTER FILE 
DA 10.RDW.0+OMASTERX 
00,69 

DESCRIPTION OF THE DETAIL FILE 
DA 20,RDW»0+DETAILX 

00»09A10 

17»19A2.1 

22.29A6.2 

DESCRIPTION OF THE CHECK FORMAT 
DLINE 

2Z.ZZ2.ZZZ.2ZZ 

18.32 

40SXX.XXZ.ZZ 
DESCRIPTION OF THE FILE FROM WHICH CHECKS WILL dt PRINTED 
DA 10.RDW.O+CHECKX 

00.99 

DESCRIPTION OF TEMPORARY STORAGE FIELDS 
DA 1 



DC 



03.09A5.2 
13.19A5.2 
25.29A3.2 
35.39A3.2 
43.49A5.2 

-RDW 

•MASTER IS MISSING FOR MANNUMBER* 



* PROGRAM 

IOPEN OPEN IMASTER. DETAIL. MASTEROUT .CHECKTAPE 

START GET DETAIL 

NEXTMASTER GET IMASTER 

COMP DMANNUMBER. IMANNUMBER.NOMASTER. .NODETAIL 

ARITH GROSSPAY* I PAYRATE*DHOURS+DSALES* ICOMISRATE 

ARITH TAX=. 18»< GROSSPAY- I DEPENDNTS* 13. 00) 

ZSIGN TAX...ZEROTAX 

FICATEST ARITH FICA*GROSSPAY*.03 

ARITH TF1CA=IYTDFICA+FICA-144.QG 

ZSIGN TFICA, FICALCFICALC 

ARITH FICA*FICA-rFICA 

FICALC ARITH I YTDFICA=1 YTDFICA+FICA 

ARITH IYTDPAY-IYTDPAY+GROSSPAY 

ARITH NETPAY=GROSSPAY-TAX-FICA 

EDMOV IMANNUMBER TO CMANNUMBER, 1NAME TO CNAME. NETPAY TO 
CNETPAY 

* PREPARE TAPE RECORD FOR PRINTING CHECKS OFFLINE 



ZEROTAX 



NOMASTER 



NODETAIL 



EOFDETAIL 
RNOUTMASTR 



EOFMASTER 
RNOUTDTAIL 



IEND 
END 



PUT 

PUTX 

B 

ZERO 

B 

MOVE 

TYP 

NOP 

B 

PUTX 

B 

8SN 

PUTX 

GET 

B 

BSN 

MOVE 

TYP 

NOP 

GET 

B 

END 

CNTRL 



CHECKLINE IN CHECKTAPE 

IMASTER IN MASTEROUT 

START 

TAX 

FICATEST 

DMANNUMBER TO ERRORNO 

ERMESSAGE 

START 

IMASTER IN MASTEROUT 

NEXTMASTER 

l.IEND 

IMASTER IN MASTEROUT 

IMASTER 

RNOUTMASTR 

l.IEND 

DMANNUMBER TO ERRORNO 

ERMESSAGE 

DETAIL 
RNOUTDTAIL 

IOPEN 



00084 



260 



PAGE AY PROGRAM 
LN CDREF LABEL 



CDNO FD LOC INSTRUCTION 



34 


AF01 




* AN 


35 


AF02 




* 


36 


AF03 




* i 


37 


AF04 




IMASTER 


38 




X 




39 




X 




40 




X 




41 




X 




42 




X 




43 




X 




44 




X 




45 




X 




46 




X 




47 




X 




48 


AF05 




IMANNUMBER 



DESCRIPTION OF THE INPUT MASTER FILE 
DA 10.RDW»0+IMASTERX 



00219 



00220 



00*09A10 



09 



+0013641443 

1364 +0013741380 

1365 +0013811387 

1366 +0013881394 

1367 +0013951401 

1368 +0014021406 

1369 +0014091415 

1370 +0014161422 

1371 +0014231429 

1372 +0014301436 

1373 -0014371443 
1374 



PAGE AY 
REF 




1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
OOOO 



C/3 

i 



LN CDREF LABEL 



01 AF06 

02 AF07 

03 AF07A 

04 AF08 

05 AF09 

06 AF10 

07 AFll 
06 AF12 
09 AF13 
10 

11 
12 
13 
14 
15 
16 
17 
18 
19 

20 AF14 

21 AF15 

22 AF16 

23 AF17 
24 

25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3b 
39 
40 
41 
42 
43 

44 AF18 

45 AF19 

46 AF20 

47 AF21 

48 AF22 



I NAME 

IDEPENDNTS 

IPAYRATE 

ICOMISRATE 

I YTDPAY 

IYTDFICA 



OPERAND 

10*39* 

40»41A2 

42.46A2.3 

47»49A.3 

50t56A5.2 

65i69A3.2 



CDNO FD LOC INSTRUCTION 



09 
01 
26 
79 
06 
59 



* DESCRIPTION OF THE OUTPUT MASTER FILE 

MASTEROUT DA 10 tRDW»0+OMASTERX 



00221 



00222 



DETAIL 



DESCRIPTION OF THE DETAIL FILE 
DA 20*RDW»0+DETAILX 



00224 



00225 



DMANNUMUER 00.09A10 

DHOURS 17»19A2«1 

DSALES 22»29A6.2 

* 

* DESCRIPTION OF THE CHECK FORMAT 



09 
79 
29 



1375 
1378 
1378 
1378 
1379 
1360 



1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 



1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 



+0014441523 
+0014541460 
+0014611467 
+0014681474 
+0014751481 
+0014821488 
+0014891495 
+0014961502 
+0015031509 
+0015101516 
-0015171523 



+0015241603 
+0015441546 
+0015471549 
+0015501552 
+0015531555 
+0015561558 
+0015591561 
+0015621564 
+0015651567 
+0015681570 
+0015711573 
+0015741576 
+0015771579 
+0015801582 
+0015831585 
+0015861588 
+0015891591 
+0015921594 
+0015951597 
+0015981600 
-0016011603 



PAGE AZ 

REF 

0001 
0004 
0004 
0004 
0005 
0006 



1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
0000 



1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
0000 
0001 
0002 



to 
to 


PAGE BA 




PROGRAM 






LN 


CDREF 




LABEL 


OP 


OPERAND 




01 


AF23 




CHECKLINE 


OLINE 






02 


AF24 




CMANNUMBEF 




2Z.ZZZ»ZZZ»ZZZ 




03 


AF25 




CNAME 




18*32 




07 


AF26 




CNETPAY 




40$XX*XXZ.ZZ 




08 


AG01 




* 


DESCRIPTION OF THE FILE FROM WHICH CHECKS 




09 


AG02 




CHECKTAPE 


DA 


10»RDW»0+CHECKX 




10 




X 










11 




X 










12 




X 










13 




X 










14 




X 










15 




X 










16 




X 










17 




X 










16 




X 










19 




X 










20 


AG03 








00*99 




21 


AG04 




* 








22 


AG05 




* 


DESCRIPTION OF TEMPORARY STORAGE FIELDS 




23 


AG06 




WORKAREA 


DA 


1 




24 


AG07 




GROSSPAY 




03*09A5.2 




25 


AG08 




TAX 




13»19A5.2 




26 


AG09 




FICA 




25.29A3.2 




27 


AGIO 




TFICA 




35»39A3.2 




28 


AG11 




NETPAY 




43»49A5.2 




29 


AG12 




♦ 








30 


AG13 




ERMESSAGE 


DC 


-RDW 




31 




X 










32 


AG14 








•MASTER IS MISSING FOR MANNUMBER • 




33 




X 










34 




X 










35 




X 










36 




X 










37 




X 










38 




X 










39 


AG15 




ERRORNO 








40 




X 










41 




X 










42 


AG16 




* 








43 


AG17 




* PROGRAM 






44 


AG18 




IOPEN 


OPEN 


1 MASTER »DETAIL»MASTEROUT*CHECKTAPE 




45 




X 


IOPEN 


BLX 


lOCSIXGtlOC. IOPEN 




46 




X 




B 


TAPEFILEIM 




47 




X 




B 


TAPEFILEDI 




48 




X 




B 


TAPEFILEMO 











PAGE BA 


CDNO 


FD 


LOC 


INSTRUCTION 


REF 


00228 






+0016041613 






29 


1604 




1604 


00229 


49 


1607 




1607 




89 


1611 


+0016141723 


1611 


00230 




1614 


+0016241633 


1614 






1615 


+0016341643 


1615 






1616 


+0016441653 


1616 






1617 


+0016541663 


1617 






1618 


+0016641673 


1618 


00231 




1619 


+0016741683 


1619 






1620 


+0016841693 


1620 






1621 


+0016941703 


1621 






1622 


+0017041713 


1622 






1623 


-0017141723 


1623 




09 


1624 


+0017241728 


0000 




39 


1724 




1724 




39 


1725 




1725 




59 


1726 




1726 




59 


1727 




1727 




39 


1728 


+0017291738 


1728 


00232 




1729 


-0017301738 


1729 


00233 


09 


1730 


•7461828365 


1730 




09 


1731 


•7900698200 


1731 




09 


1732 


•7469828269 


1732 




09 


1733 


•7567006676 


1733 




09 


1734 


•7900746175 


1734 


00234 


09 


1735 


'7584746265 


1735 




01 


1736 


•79 


1736 




29 


1736 


• 00000000 


1736 




09 


1737 


• 0000000000 


1737 




01 


1738 


•00 


1738 



00235 1739 +0200040578 

1740 +0100091327 

1741 +0100091345 

1742 +0100091336 



PAGE BB PROGRAM 

LN CDREF LABEL OP QPtRAND 





01 




X 




B 


TAPEFILECO 




02 




X 




NOP 






03 


AG19 




START 


GET 


DETAIL 




04 




X 


START 


BIX 


DETAILB»*+2 




05 




X 




BLX 


DETAILX» IOC.NSE03A 




06 




X 




XL 


DETAILX»0+DETAILB 




07 


AG20 




Nt-XTMASTER 


GET 


1 MASTER 




06 




X 


NEXTMASTER 


BIX 


IMASTERB**+2 




09 




X 




BLX 


1 MASTERX* IOC.NSE01A 




10 




X 




XL 


I MASTERX »0+l MASTERS 




11 


AG21 






COMP 


DMANNUMBER » 1 MANNUMBER * NOMASTER » » NODETA 1 L 




12 




X 




ZA2 


DMANNUMBLR ( 1 9 ) +DETA 1 LX 




13 




X 




S2 


1 MANNUMBER ( ♦ 9 ) + 1 MASTERX 




14 




X 




BV2 


#+2 




15 




X 




BZ2 


*+3 




16 




X 




BM2 


NOMASTER 




17 




X 




B 


NODETA IL 




18 


AG22 






ARITH 


GROSSPAY= 1 PAYRATE*DHOURS+DSALES* 1 COM 1 SRATE 




19 




X 




ZA3 


IPAYRATE(0»4)+I MASTERX 




20 




X 




M 


DHQURS(0»2)+DETAILX' 




21 




X 




SR 


1 




22 




X 




ST2 


COMAREA.A(0»9)+1 




23 




X 




ZA3 


DSALES(0»3)+DETAILX 




24 




X 




M 


1 COM 1 SRATE <0»2)+l MASTERX 




25 




X 




A2 


CQMAREA.A(0»9)+1 




26 




X 




SRR2 


1 




27 




X 




ST2 


GROSSPAY(0t6) 




26 


AG23 






ARITH 


TAX»»18*(GROSSPAY-IDEPENDNTS*13«00) 




29 




X 




ZS3 


IDEPENDNTS(0»3)+IMASTERX 




30 




X 




M 


+ 1300 




31 




X 




A2 


GROSSPAY(0«6) 




32 




X 




ZA3 


+ 18 




33 




X 




M 


9992 




34 




X 




SRR 


2 




35 




X 




ST2 


TAX(0*6) 




36 


AG24 






ZSIGN 


TAXt»»ZEROTAX 




37 




X 




ZA1 


TAX10.6) 




38 




X 




BZl 


M.24 




39 




X 




CSM 


TAX 




40 




X 




BE 


ZEROTAX 




41 




X 


M.24 


NOP 






42 




X 


ORIGIN 


CNTRL 


*-l 


1 


43 


AG25 




FICATEST 


ARITH 


FICA=GROSSPAY*.03 


ST 


44 




X 


FICATEST 


ZA3 


GROSSPAY(0»6) 


'■y 


45 




X 




M 


+ 03 


3 


46 




X 




SRR 


2 


OQ 

-» 
q 


47 




X 




ST2 


FICA(0»4) 


3 

to 

OS 

Co 


48 


AH01 






ARITH 


TF 1 CA= 1 YTDF 1 CA+F 1 CA-144#00 







PAGE BB 


CDNO FD 


LOC INSTRUCTION 
1743 +0100091354 


REF 


0236 


1744 -0100000000 





00237 



00238 



00239 



00240 



00241 



00242 



00243 



1745 +4900051747 

1746 +0200062039 

1747 +4505060000 

1748 +4900071750 

1749 +0200081945 

1750 +4507080000 

1751 +2306090000 

1752 -2408090000 

1753 +2100091755 

1754 +2000091757 

1755 -2000091881 

1756 +0100091891 



1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 



+3308260004 
+5306790001 
-5000000001 
+2200092122 
+3306250002 
+5308790004 
+2400092122 
+5000002101 
+2200391724 



1766 -3308030004 

1767 +5300142124 

1768 +2400391724 

1769 +3300232125 

1770 +5300099992 

1771 -5000000102 

1772 +2200391725 

1773 +1300391725 

1774 +1000091777 

1775 -0300601725 

1776 -4100091878 

1777 -0100000000 



1777 +3300391724 

1778 +5300012125 

1779 -5000000102 

1780 +2200591726 



to 

OS 



PAGE BC PROGRAM 
LN CDREF LABEL 



01 

02 

03 

04 

05 

06 AH02 

07 

08 

09 

10 

11 AH03 

12 

13 

14 

15 

16 AH04 

17 

18 

19 

20 

21 AH05 

22 

23 

24 

25 

26 AH06 

27 

28 

29 

30 

31 

32 AH07 

33 AH08 
34 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



FICALC 
FiCALC 



OP OPERAND 

ZA2 FICA(0«3) 

SL2 2 

A2 I YTDFICA(0t4)+IMASTERX 

S2 +14400 

ST2 TFICA(0#4) 

2SIGN TFICA»FICALCt#FICALC 

ZA1 TFICA(0»4) 

BZ1 FICALC 

CSM TFICA 

BE FICALC 

ARITH FICA=FICA-TFICA 

ZS2 TFICA(0»3) 

SL2 2 

A2 FICA(0»4) 

ST2 FICA(0«4) 

ARITH IYTDFICA-IYTDFICA+FICA 

ZA2 FICA(0»3) 

SL2 2 

A2 IYTDFICA(0»4)+IMASTERX 

ST2 IYTDFICA(0»4)+IMASTERX 

ARITH IYTDPAY-IYTDPAY+GROSSPAY 

ZA2 GROSSPAY(0»3) 

SL2 2 

A2 I YTDPAY(0»6)+IMASTERX 

ST2 IYTDPAY(0»6)+IMASTERX 

ARITH NETPAY-GROSSPAY-TAX-FICA 

ZS2 TAX(0»3) 

S2 FICA(0»3) 

SL2 2 

A2 GROSSPAY(0»6) 

ST2 NETPAY(0»6) 

EDMOV IMANNUMBER TO CMANNUMBER t I NAME TO CNAMEfNETPAY TO 

CNETPAY 

ZA2 IMANNUMBER(0»9)+IMASTERX 

ST2 COMAREA.A+2 

XZA MACREG»01#COMAREA.A+2 

ENA MACREG«0-1»EDMOV02«A 

ZA3 COMAREA»A(0»l) 

ST3 CMANNUMBER (0»1) 

ZA3 '»' 

ST3 CMANNUMBER ( 2 »3) 

ZA3 COMAREA.A(2»5) 

ST3 CMANNUMBER (4*7) 

ZA3 COMAREA.A(6»7) 

ST3 CMANNUMBER ( 8 t9) 

ZA3 •♦• 

ST3 CMANNUMBER (10*11) 

ZA3 COMAREA.A(8»9) 



CDNO FD LOC INSTRUCTION 



1781 +2300581726 

1782 +5000002202 

1783 +2408590006 

1784 -2400592124 

1785 +2200591727 



PAGE BC 
REF 



00244 



00245 



00246 



00247 



00248 



00249 



00250 



00251 



1786 +1300591727 

1787 +1000091794 

1788 -0300601727 

1789 -4100091794 

1790 -2300581727 

1791 +5000002202 

1792 +2400591726 

1793 +2200591726 

1794 +2300581726 

1795 +5000002202 

1796 +2408590006 

1797 +2208590006 

1798 +2300361724 

1799 +5000002202 

1800 +2408060005 

1801 +2208060005 

1802 -2300361725 

1803 -2400581726 

1804 +5000002202 

1805 +2400391724 

1806 +2200391728 



1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1S17 
1818 
1819 
1820 
1821 



+2308090000 
+2200092123 
+4600092123 
+5600092111 
+3300012121 
+3200231604 
+3300452127 
+3200451604 
+3300252121 
+3200691604 
+3300672121 
+3200011605 
+3300452127 
+3200231605 
+3300892121 



PAGE BD PROGRAM 

LN CDREF LABEL OP OPERAND 



CDNO FD LOC INSTRUCTION 



PAGE Bl 
REF 



01 


X 


02 


X 


03 


X 


04 


X 


03 


X 


06 


X 


07 


X 


OB 


X 


09 


X 


10 


X 


11 


X 


12 


X 


13 


X 


14 


X 


15 


X 


16 


X 


17 


X 


18 


X 


19 


X 


20 


X 


21 


X 


22 


X 


23 


X 


24 


X 


25 


X 


26 


X 


27 


X 


28 


X 


29 


X 


30 


X 


31 


X 


32 


X 


33 


X 


34 


X 


35 


X 


36 


X 


37 


X 


36 


X 


39 


K 


40 


X 


41 


X 


42 


X 


43 


X 


44 


X 


45 


X 


46 


X 


47 


AH08A 


48 


AH09 



M.23 



ST3 CMANNUMBER(12»13) 

ZA3 COMAREA.A( 10»13) 

ST3 CMANNUMBER(14»17) 

ZA3 •»• 

ST3 CMANNUMBER(18»19) 

ZA3 C0MAREA.A(14»19) 

ST3 CMANNUMBER(20»25) 

ZA1 !NAME(0t9)+IMASTERX 

ZA2 INAME(10»19)+IMASTERX 

ST2 CNAME(16»19) 

SR 4 

ST2 CNAME(6fl5) 

ST1 CNAME(0i5) 

ZA2 INAME(20»29)+IMASTERX 

ST2 CNAME(26»29) 

SR2 4 

ST2 CNAMEI20.25) 

ZA2 NETPAY(0»6) 

ST2 COMAREA.A+2 

XZA MACREG«01»COMAREA.A+2 

ENA MACREG«01tEDMOV02.A 

ZA3 • • 

ST3 CNETPAY(Otl) 

ST3 CNETPAY(2i9) 

SLC2 MACREG.02 

ZA3 '$• 

B M.22-3+MACREG.02 

ST3 CNETPAY(0»1) 

ZA3 COMAREA.A(6»7) 

ST3 CNETPAY(2»3) 

ZA3 COMAREA.A(8t9) 

ST3 CNETPAY14»5) 

ZA3 ••• 

ST3 CNETPAY(6»7) 

ZA3 COMAREA.A(lOfll) 

ST3 CNETPAY<8»9) 

ZA3 COMAREA«A(12»13) 

ST3 CNETPAY(10»11) 

ZA3 CQMAREA.A<14»15) 

ST3 CNETPAY(12»13) 

ZA3 ••• 

ST3 CNETPAY(14.15) 

ZA3 COMAREA.A( 16*17) 

ST3 CNETPAY(16il7) 

ZA3 COMAREA.A(18»19) 

ST3 CNETPAY(18»19) 
PREPARE TAPE RECORD FOR PRINTING CHECKS OFFLINE 

PUT CHECKLINE IN CHECKTAPE 



00252 



00253 



00254 



00255 



00256 



00257 



00258 



00259 



00260 



1822 

1823 

1B24 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 



+3200451605 

+3300032122 

+3200691605 

+3300452127 

+3200011606 

+3300492122 

+3200271606 

+1308090001 

+2308090002 

+2200031609 

-5000000004 

+2200091608 

+1200491607 

+2308090003 

+2200031610 

+5000002004 

+2200491609 

+2300391728 

+2200092123 

+4600092123 

+5600092111 

+3300092126 

+3200891611 

+3200071612 

+5000102300 

+3300232127 

+0110092109 

+3200891611 

+3300672121 

+3200011612 

+3300892121 

+3200231612 

+3300452127 

+3200451612 

+3300012122 

+3200671612 

+3300232122 

+3200891612 

+3300452122 

+3200011613 

+3300012127 

+3200231613 

+3300672122 

+3200451613 

+3300892122 

+3200671613 






to 

OS 
OS 


PAGE BE 




PROGRAM 








LN 


CDREF 


LABEL 


OP 


OPERAND 




01 




X 




BIX 


CHECKB»*+2 




02 




X 




BLX 


CHECKX* I0C.NSE04A 




03 




X 




XL 


CHECKX»0+CHECKB 




04 




X 




RG 


CHECKXHOC.PUT001 




0i> 


AH10 






PUTX 


1 MASTER IN MASTEROUT 




06 




X 




BIX 


OMASTERB»*+2 




07 




X 




BLX 


OMASTERXi IOC.NSE02A 




03 




X 




XL 


OMASTERX»0+OMASTERB 




09 




X 




xu 


IMASTERX»0+OMASTERB 




10 




X 




xu 


OMASTERX*0+IMASTERB 




11 


AH11 






B 


START 




12 


AH12 




2EROTAX 


ZERO 


TAX 




13 




X 


ZlROTAX 


ZA2 


+ 




14 




X 




STD2 


TAX(0i6) 




IS 


AH13 






B 


FICATEST 




16 


AH14 




NOMASTER 


MOVE 


DMANNUMBER TO ERRORNO 




17 




X 


NOMASTER 


ZA2 


DMANNUMBER (0*9) +DETA 1 LX 




18 




X 




ST2 


ERRORNO(8t9) 




19 




X 




SR2 


2 




20 




X 




ST2 


ERRORNO(0#7) 




21 




X 




SL 


20 




22 




X 




ST2 


ERRORNO{10.i7) 




23 




X 




ST2 


ERRORNO(18»19) 




24 


AH15 






TYP 


ERMESSAGE 




25 


AH16 






NOP 






26 


AH17 






B 


START 




27 


AH18 




NODETAIL 


PUTX 


IMASTER IN MASTEROUT 




28 




X 


NODETAIL 


BIX 


OMASTERBt*+2 




29 




X 




BLX 


OMASTERX» IOC.NSE02A 




30 




X 




XL 


OMASTERX»0+OMASTERB 




31 




X 




XU 


IMASTERXtO+OMASTERB 




32 




X 




XU 


OMASTERX.O+IMASTERB 




33 


AH19 






B 


NEXTMASTER 




34 


AH20 




EOFDETAIL 


BSN 


1*IEND 




3d 


AH2i 




RNOUTMASTR 


PUTX 


IMASTER IN MASTEROUT 




36 




X 


RNOUTMASTR 


BIX 


OMASTER3»*+2 




37 




X 




BLX 


OMASTERX* IOC.NSE02A 




3d 




X 




XL 


OMASTERX»0+OMASTER6 




39 




X 




XU 


IMASTERX»0+OMASTERB 




40 




X 




XU 


OMASTERX »0+ | MAST^RB 




41 


AH22 






GET 


IMASTER 




42 




X 




BIX 


IMASTERB»*+2 




43 




X 




BLX 


IMASTERXtlOC.NSEOlA 




44 




X 




XL 


IMASTERX»0+|MASTERB 




45 


AH23 






B 


RNOUTMASTR 




46 


AH24 




EOFMASTER 


BSN 


1.1END 




47 


AH25 




RNOUTjTAiL 


MOVE 


DMANNUMBER TO ERRORNO 




48 




X 


RNOUTDTAIL 


ZA2 


DMANNUMBER ( »9 ) +DETA 1 LX 



CDNO FD 
00261 

00262 

00263 

00264 
00265 

00266 

00267 

00268 



LOC INSTRUCTION 

1868 +4900111870 

1869 +0200122086 

1870 +4511120000 

1871 -6500122120 

1872 +4900131874 

1873 +0200141992 

1874 +4513140000 

1875 -4513080000 

1876 -4507140000 

1877 +0100091745 

1878 +2300002124 

1879 -2200391725 

1880 +0100091777 



PAGE BE 
REF 



1881 
1882 
1883 
1884 
1885 
1886 
1887 
1886 
1889 
1890 

1891 
1892 
1893 
1894 
1895 
1896 
1897 



+2306090000 
+2200011737 
+5000002002 
+2200291736 
-5000000220 
+2200291737 
+2200011738 
+6900041729 
-0100090000 
+0100091745 

+4900131893 
+0200141992 
+4513140000 
-4513080000 
-4507140000 
+0100091748 
+6100301921 



1898 +4900131900 

1899 +0200141992 

1900 +4513140000 

1901 -4513080000 

1902 -4507140000 

1903 +4900071905 

1904 +0200081945 

1905 +4507080000 

1906 +0100091898 

1907 +6100301921 

1908 +2306090000 



03 

1 



PAGE BF 




PROGRAM 






LN CDREF 


LABEL 


OP 


OPERAND 


01 


X 




ST2 


ERR0RN0(8»9) 


02 


X 




SR2 


2 


03 


X 




ST2 


ERRORNO(0»7) 


04 


X 




5L 


20 


05 


X 




ST2 


ERRORNO(10»17) 


06 


X 




ST2 


ERRORNQ<18>19) 


07 AI01 






TYP 


ERMESSAGt 


08 AI02 






NOP 




09 AI03 






GtT 


DlTAIL 


10 


X 




BIX 


DETAILB»*+2 


11 


X 




BLX 


DlTAILX» lOC.NStO'iA 


12 


X 




XL 


DETAILXtO+DETAlLB 


13 AI04 






B 


RNOUTUTAIL 


14 AI05 




IEND 


END 




15 


X 


IEND 


BLX 


IOCS IXGt IOC, IEND 


16 


X 




NOP 


___~-^-v_ 



CDNO FD LOC INSTRUCTION 

00269 1909 +2200011737 

1910 +5000002002 

1911 +2200291736 

1912 -5000000220 

1913 +2200291737 

00270 1914 +2200011738 

1915 +6900041729 

1916 -0100090000 

1917 +4900051919 

1918 +0200062039 

00271 1919 +4505060000 

1920 +0100091908 

1921 +020004122.7 



PAGE BF 
REF 






Appendix H: Index of Messages 



Message Macro Page 

actual address not allowed duf 30 

all branches blank comp 145 

all branches equal comp 145 

alpha blanks into undefined par. xx zero 189 

an element of the operand starts illegally duf 30 

assume commas after par.2 — permanent nop cycle 156 

attempting to fill hardware. par. xx fill 197 

attempting to zero hardware. par. xx zero 189 

blank parameter xx edmov 209 

snap 226 

branch to non-imperative instruction zsign 179 

bridge ctr using fhist loc only par. xx cycle 156 

chan entry invalid. two channels assumed. . diocs 24 

chpt entry invald3. chpt included diocs 24 

CHPT REQUIRES EORl. EOhI GENERATED DIOCS 24 

CODENAME NOT DEFINED BY A CODE DECOD 161 

CODEVALUE NOT DEFINED UNDER A CODE DECOD 162 

CODEVALUES AND BRANCHES NOT PAIRED DECOD 162 

COUNT GREATER THAN FEELD-SIZE SHIFT 222 

COUNT IS ZERO SHDTT 222 

COUNT NOT AN INDEXWORD SHIFT 222 

EOR ENTRY INVALDD. EORl ASSUMED DIOCS 24 

EQUAL SIGN BEGINS INPUT — WILL IGNORE LOGIC 169 

ERROR — IMPROPER OPERAND CYCLE 156 

FIELD 1 BLANK COMP 146 

FIELD 2 BLANK COMP 146 

FIELD GREATER THAN 20 DIGITS SHIFT 222 

FD3LD MISSING ZSIGN 179 

FEELD 1 NOT ACCEPTABLE COMP 146 

FIELD 2 NOT ACCEPTABLE COMP 146 

FDZLD UNACCEPTABLE ZSIGN 179 

COUNT 222 

FILLING INSTRUCTION. PAR. XX FELL 197 

HIGH-ORDER DIGITS LOST OF PARAMETER XX EDMOV 209 

IGEN ENTRY INVALID. IGENl ASSUMED DIOCS 25 

ILLEGAL PUNCTUATION MARK USED LOGIC 169 

ILLEGAL TERM ENDS LOGICAL EXPRESSION LOGIC 169 

ILLEGAL TERM PRECEDES A BINARY OPERATOR. . . LOGIC 169 

ILLEGAL TERM PRECEDES A LEFT PAREN LOGIC 169 

ELLEGAL TERM PRECEDES A NOT LOGIC 169 

ILLEGAL TERM PRECEDES A RIGHT PAREN LOGIC 170 

ILLEGAL TERM PRECEDES PARAMETER XX LOGIC 170 

IMPROPER OPERAND PUTX 119 

IMPROPER OPERAND. CHAN2, OPEN2, EORl, CHPT, 

IGENl ASSUMED DIOCS 25 



Message Macro Page 

INCORRECT NUMBER OF PARAMETERS SHIFT 222 

INCORRECT OPTION SHIFT 222 

INSTRUCTION NOT PROGRAM SWITCH. PAR. XX. . . . SETSW 185 

INVALID PARAMETER XX LOGIC 170 

SNAP 226 

INVALD3 SWITCH. PARAMETER XX SETSW 186 

IOCSIXF(G, h) ENTRY OUT OF RANGE, IGNORED. . . DIOCS 25 

LABEL SHOULD BE BLANK DUF 30 

LESS THAN 3 INPUT PARAMETERS COMP 146 

MULTIPLE FROM- AND TO-FBSLDS MOVE 215 

N # # ( SEE NOTE ) 

NO BRANCHES GrVEN ZSIGN 179 

NO BRANCH OR SWITCH TO BE SET IN INPUT LOGIC 170 

NO FIELD SIZE. PAR. XX ZERO 189 

FILL 197 

NO FEELD SIZE. PARAMETER XX MOVE 215 

NO FROM-FIELD IN MOVE MACRO LINE MOVE 215 

NO TO-FIELD IN MOVE MACRO LINE MOVE 215 

NOTHING TO TEST IN LOGIC STATEMENT LOGIC 170 

NUMERIC FIELD GREATER THAN 20 DIGITS COMP 146 

OPEN ENTRY INVALD3. OPEN2 ASSUMED DIOCS 25 

OPEN3 REQUERES CHPT. OPEN2 GENERATED DIOCS 25 

OPERAND BLANK OPEN 111 

GET 113 

PUT 116 

CLOSE 121 

OPERAND HAS TWO PARAMETERS GET 113 

PUT 116 

OPERAND OUTSEDE OF ALLOWABLE RANGE DUF 31 

OUTPUT SRBFORM4 BLANK, ASSUMED 10 PUT 116 

PARAM 01 (03) FILE FORM INVALD3 PUTX 119 

PARAM 03 IS A FILE. PARAM 03 IGNORED GET 113 

PARAMnn NOT A FELE OPEN 111 

CLOSE 121 

PARAM 01 NOT A FILE GET 113 

PARAM 01 ( 03 ) NOT A FILE PUT 116 

PUTX 119 

PARAM 03 NOT DEFINED GET 114 

PARAM 01 NOT INPUT FILE GET 113 

PARAM 01(03) NOT OUTPUT FILE PUT 116 

PARAM NOT LABEL OF CYCLE MACRO XX RECYC 156 

PARAM 03 — SRBFORM4 BLANK, ASSUMED 10 PUTX 119 

PARAM 01 UNDEFINED PUT 116 

PAREN. MISSING AROUND ARITH-REL LOGIC 170 

PARENTHESIS NOT CLOSED LOGIC 170 

PRINT SUPPRESSED IF ALL ZERO EDMOV 209 

RECLENGTHS UNEQUAL PUTX 119 



268 



Message Macro Page 

SHIFTING INSTRUCTION SHIFT 222 

SNAPS COUNTER ZERO SNAP 226 

SRBFORM4 BLANK, ASSUMED 10 GET 114 

SRBFORM4 UNEQUAL. OUTPUT SRB USED PUTX 119 

START GREATER THAN FIELD-SIZE SHIFT 222 

STMNT SHOULD OR SEEMS TO BE ENDED BUT CARDS 

REMAIN DUF 31 

SYMBOLIC ADDRESS NOT ALLOWED DUF 31 

TO-FD3LD(s) SMALLER THAN FROM-FIELD ( S ) ... . MOVE 215 

TO-FIELD NOT ALPHA. PARAMETER XX EDMOV 209 

TOO MANY PARAMETERS. WILL IGNORE SNAP 226 

TOO MANY RIGHT PARENTHESES LOGIC 170 

UNACCEPTABLE PARAMETER XX EDMOV 209 

MOVE 215 

UNLIKELY — ALL BRANCHES IDENTICAL ZSIGN 180 

W # # (see note) 

W — BOTH FIELDS NOT ALPHA — NOFORM COMP 146 

W — UNUSUAL BRANCH CONDITION COMP 146 



Message Macro 

WARNING — CODEVALUE NOT DEFINED UNDER CODE- 
NAME DECOD 

WARNING. INVALID ALPHA MAY BE INTRODUCED. . FILL 

WARNING — OUTPUT RLIFORM3 BLANK PUT 

WARNING — PARAM 02 IS NOT — IN — PUT 

WARNING — PARAM 02 IS NOT — TO — GET 

WARNING — PARAM 01 NOT INPUT FILE GET 

WARNING — PARAM 01 ( 03 ) NOT OUTPUT FILE . . . PUT 

WARNING — RLIFORM3 BLANK GET 

WARNING — SUCCESSIVE NOPS CYCLE 

WILL SET SWITCHES IN FIRST LOCATION ONLY .... LOGIC 

x # # (see note) 

ZEROING DC. PAR. XX ZERO 

ZEROING INSTRUCTION. PAR. XX ZERO 

note. For arith messages, which begin with an 
n, w or x followed by a two-digit number, 
see page 133. 



Page 

162 
198 
116 
117 
114 
114 
117 
114 
156 
170 



189 
189 
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Index 



When more than one page reference for a particular subject is 
listed, the page number in italics indicates the major reference. 



Page 

$ see: Dollar Sign 

@ see: Alpha Symbol 

* see: Asterisk 

Actual Address 8 

Adcon 11 

Address 

Actual 8 

Adjustment 13, 35 

Blank 8 

Constants 1 1, 58 

Modification 106 

Relative 34 

Symbolic 8 

Types 8 

Alpha Symbol 

Alphameric Literal 11 

In dc 60, 62 

Alphameric 

Constants (dc) 60 

Data Field (dline) 67 

Literal H 

Literal ( Macro) 106 

Alteration Switches 16, 85 

Logical Variable 165 

Area Number ( da ) 32 

arith ., 1^3 

Arithmetic 

Expressions 123 

Operators 123 

Punctuation 126 

Arrangement of Fields 49 

Assignment ( Phase III ) 235 

Component Listing 238 

Asterisk 

Address 

Comments Card ' 

77 

DRDW ' ' 

Macro-instruction 105 

Automatic-Decimal 

Constants 55 

Numbers 10 

Series (dc) 56 

Autosort 229 

Availability Table 238 

Basic Autocoder 1 

Binary Operator 123 

Blank Address 8 

Branch Control 95 

Branch, Overflow 128 

Carriage Control (dline) 74 

Characters, Optional 252 

Characters, Print Format 69 

close 120 

code 50 

Codes see: Operation Codes 

Code Values I 66 

Coding Sheet 5 

Comments Card 7 



Page 

Communication Record 230 

comp 144 

Component Assignment Listing 238 

Computation Mask 128 

Constants 

Address H, 58 

Alphameric ( dc ) 60 

Automatic-Decimal 55 

Data (dline) 66 

Packing 60 

Continuation Cards 17 

Macro-Instruction 106 

Control 

Branch 95 

Carriage 74 

End 97 

Litorigin 88 

SRELEASE 101 

SRESERVE 101 

Statements 87 

Systems 230 

XRELEASE 101 

XRESERVE 99 

Counter Listing, Origin 238 

Cross Reference Listing 238 

cycle 154 

da 32 

Area Number 32 

Header Line 32, 46 

Subsequent Entry 38, 46 

dc 54 

Alpha Symbol 60, 62 

Header Line 54 

Subsequent Entry 54 

Declarative Statements 20 

code 50 

da 32 

dc 54 

diocs 22 

dline 65 

drdw 77 

dsw 80 

DTF 26 

DUF 29 

EQU 82 

Decimal Point, Implicit 43 

Decimal Point Indicators 43 

decod 161 

Differences Among Systems 240 

Digit Switches 80 

Logical Variable 165 

diocs 22 

dline- 65 

Alphameric Field 67 

Constant Data 66 

Editing 68 

Dollar Sign 69 



270 



Page 

drdw 77 

dsw 80 

DTF 26 

DUF 29 

Editing to Print Format 68 

EDMOV 205 

J-iXO^LiUllH^ kJWlC*JilO» J.O 

EQU 84 

Logical Variable 165 

Reservation of 18 

Element Record 231 

END 122 

End Control 97 

EQU 82 

Execution Sequence ( arith ) 126 

Expression 

Arithmetic 123 

Logical 164 

Relational 166 

Field 

Alphameric Data 67 

Arrangement of 49 

Definition 12 

Definition ( da ) 41 

Length 38 

Operand 166 

Position 38 

fill 196 

Final Storage (arith) 131 

Functions (arith) 124 

Floating-Decimal 

Editing ( dline ) 68 

Names ( dc ) 58 

Numbers 11, 57 

Print Format 68 

Series ( dc ) 58 

Forbidden Labels 105 

Format Indicators 42 

Format, Print 68 

Four-Tape Autocoder 2 

Function, Operation Codes 248 

Functions ( arith ) 124 

get 112 

Glossary 253 

Halt Listing 238 

Header Line 

code 50 

da 32, 46 

dc 54 

DLINE 65 

Heading Line 5 

Identification ( Coding Sheet ) 7 

Illustration of Programming 259 

Imperative Statements 103 

arith 123 

CLOSE 120 

comp 144 

CYCLE 154 

DECOD 161 

EDMOV 205 

END 122 

FILL 196 

GET 112 

LOGIC 164 

MOVE 213 

OPEN 110 

PUT 115 

PUTX 118 

RECYC 154 

SETSW 185 

SHIFT 221 



Page 

snap 225 

ZERO 188 

ZSIGN 178 

Implicit Decimal Point 43 

Implicit Indexing 35 

Independent Variables 125 

Index of Messages 268 

Index Words 14, 84 

Reserved 18, 243 

Indexing 14 

Implicit 35 

Macro-Instructions 106 

Indicators 

Decimal-Point - 43 

Format 42 

Individual Names ( dc ) 58 

Information Transfer 236 

Input/Output 

Control System 2 

equ 85 

Macro-Instructions 48 

Units 16 

Instructions, Symbolic Machine 103 

Label , . 6 

Forbidden 105 

Macro-Instruction 105 

Length, Field 38 

Line ( Coding Sheet ) 6 

Line, Header see: Header Line 

Listings 236 

Literal 10 

Alphameric 11 

Macro-Instruction 107 

Litorigin Control 88 

logic 164 

Logical 

Operator 167 

Punctuation 167 

Variables 165 

Machine Instructions, Symbolic 103 

Machine Requirements 1 

Macro Generators 2 

Macro-Instructions 104 

Input/Output 48 

Mask, Computation 128 

Message 

Index 268 

Listing 238 

Phase III 236 

Mnemonic, Operation Codes 244 

Mode Size (arith) 128 

Modes ( arith ) 124 

move 213 

Multiple rdws ( drdw ) 78 

Numerical Print Format 68 

Number 

Areas in da 32 

Automatic-Decimal 10 

Floating-Decimal 11, 57 

Off-Line Printing 74 

On-Line Printing 73 

open 110 

Operand 6 

File 236 

Logical Variables 166 

Macro-Instruction 107 

Operation ( Coding Sheet ) 6 

Operation Codes 

By Function 248 

By Mnemonics 244 
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Page 

Operator 

Arithmetic 123 

Binary 123 

Logical 167 

Unary 123 

Optional Characters 252 

Origin Control 88 

Origin Counter Listing 238 

Output (Phase III) '236 

Overflow 

Branch ( arith ) 128 

Lights 132 

Packing 54, 56 

Alphameric Constants 60 

Page Number Coding Sheet 5 

Coding Sheet 5 

Output Listing 236 

Parameters 8 

Parenthesis 

arith 125 

da 39, 41 

DC " 

DLINE ' 1 

Field Definition 39 

logic 167 

Relative Field Definition 41 

Phase I 231 

Phase II 232 

Phase III 233 

Position, Field 38 

Print Format 

Characters 69 

Editing 68 

Printing (dline) 

Off-Line 74 

On-Line 73 

Priority Release 8 

Processor 229 

Autosort 229 

Macro Generators 229 

Organization of 229 

Output Listings 236 

Phase I 231 

Phase II 232 

Phase III 233 

Systems Control 230 

Program 

Listing 236 

Switch 165 

Programming, Illustration 259 

Punctuation 

Arithmetic 126 

Logical 167 

put 115 

putx 118 

Quantities, Numerical (arith) 123 

RDW 

DA 33 

Multiple ( drdw ) 78 

Single ( drdw ) 77 

Record 

Communication 230 

Construction 234 

Element 231 

Record Mark 

dc 60, 62 



Page 

dline 67 

IBM 720 ( dline ) 76 

RECYC 154 

Relational Expression 166 

Relative 

Addressing 34 

Field Definition 41 

Remarks 

Coding Sheet 7 

Macro-Instructions 107 

Reservation of 

Electronic Switches 18 

Index Words 18 

Reserved Index Words 243 

Sequence, Execution 126 

Serial Transfer 234 

Series ( dc ) 56 

setsw 185 

Setting Overflow Lights 132 

SHIFT 221 

Single rdw 77 

snap 225 

Sort 

Operand File 236 

Serial-Request File 234 

Statement File 235 

Symbol File 236 

srelease Control 101 

sreserve Control 99 

Statements 

Control 87 

Declarative 20 

Imperative 163 

Subfields (da) 41 

Subsequent Entry 

code SI 

da 38, 46 

dc 54 

dline 65 

Switches 

Alteration 16, 85, 165 

Digit 80, 165 

Electronic 16, 84, 165 

Reservation of 18 

Symbolic 

Address 8 

Address ( equ ) 83 

Machine Instruction 103 

Systems Control 230 

Table, Availability 238 

Types, Address 8 

Unary Operator 123 

Units, Input/Output 16 

Update 230 

Use of da with 

Macro-Instructions 46 

Symbolic Machine Instructions 45 

Values, Code 166 

Variables 

Independent 125 

Logical 165 

xrelease Control 101 

xreserve Control 99 

zero 188 

Zero Divisors 131 

zsign 178 
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